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I.  iNTRoryc;!;Tg:i 

A.      PACKGP.^UND 

NPS-PASCAL  is  ar.  i'-ple-T'eri  ta  ti  or  of  *he  PASCAL 
prof?rarnin,?  lanfua^e  on  a  rnicroconputer  systen.  MPS-PAFCAL 
is  a  continuinis:  research  project  in  the  Corrrcut'^r  Science 
Department  at  the  ^laval  "Postgraduate  School,  ^^onterey, 
California.  The  original  NPS-PASCAL  design  and  programs  were 
written  by  r\J  Joaquin  C.  Gracida,  USr^C  ,  and  LT  Pohert  P. 
Stilwell  fSC)  US\,  in  tneir  thesis  submitted  June  197E. 
Their  work  is  contairei  in  Hef.  1.  ^:AJ  ^recida  and  LT 
Stilwell  inplemented  the  basic  contructs  of  the  PASCAL 
language  in  a  one-pass  corrpiler  and  code  generptor.  "^hesis 
work  was  continued  in  June  1P79  by  LT  John  L.  Pyrnes,  USN, 
who  added  code  to  iirple'^ent  rrany  rrissins  constructs,  and 
developed  a  number  cf  user  assistance  prci?rams.  His  work  is 
contained  in  Pef.  2.  Thesis  work  was  continued  a.?ain  in 
October  1Q7C,  with  the  s-oal  cf  ccrnpletin^  the  ccT.piler 
portion  of  NPS-PASCAL.  yollow-on  thesis  work  will  l^ad  to  an 
NPS-PASCAL  interpreter/translator  and  a  corDlete  PASCAL 
system.  Tn  the  discussion  which  follows,  it  is  assured  that 
the    reader    is   familiar   with   Refs .    1    and   2. 


B.      APPPOACH 

The  first  step  in  continuing  the  NP^-PASCAL  project  was 
to  convert  the  source  programs  fro!^  PL/Y.  to  FL/M-80  and 
transfer  them  from  the  IPN"  .360/6?-ba  sed  timesharing  system 
to   the   Intel  ^"icroprocessor  Development  System.  This  would 


perrrit  th°  compiler  to  be  developed  anl  detuf-ged  in  a 
coTpletely  nicroprocessor  orient '^d  environrrent,  and  would 
PliTiratP  the  need  to  use  the  PL/^''  cross  corpiler. 

The  next  step  was  to  study  the  prosrarr  listinrs  and 
previous  theses  to  gain  a  detailed  fariliarity  with  the 
■oroject.  Included  in  this  step  was  at^quirin^  a  working 
knowledge  of  the  Intel  ISIS-II  operatin,^  systerr  and  the 
PL/^"-??  comoil^r  and  its  attendant  linking  and  loading 
prof?rarrs  and  utilities.  Since  MPS-PASC^L  is  compiled  under 
the  ISIS-II  operating  system,  but  executes  under  the  CP/f' 
operating  sysem,  it  was  also  necessary  to  learn  the  CP/M 
utilities  ^cr  transferring  files  "between  systerrs,  and  the 
C?/y   run-tire  debuggers,  DDT  and  SID. 

The  largest  portion  of  this  thesis  effort  consisted  of 
making  corrections  and  additions  to  existing  code.  adding 
code  where  necessary,  tracing  exe'^ution  to  locate  logic  and 
data  errors,  correctins"  docurrentat  ion  ,  and  runnin.="  test 
PASCAL  programs.  Irrplen-ent  a  t  i  or  of  the  record  construct 
required  chana-inf  the  original  grernar  and  ccrrectint  the 
parse  tables. 

To  avoid  testing  the  ccrr^iler  with  syntactically 
incorrect  PASCAL  Drograrrs ,  test  orcgrairs  were  selected  from 
the  PASCAL  Hier  I^anual  and  Re^orjt  [3],  frcn  various  student 
texts  on  PASCAL,  and  from  the  PASCAL  Validation  Suite[4l. 
The  test  prograrrs  fror  the  Validatic^  Suite  were 
particularly  helpful,  in  that  they  exercised  the  full  range 
of  any  ffiven  PASCAL  construct. 


An  attejpt  was  rrade  to  upgrade  and  corrl^te  tne 
SY^^^OLTA"RIE  user  assistance  pro/?ran"  des'^ri'bed  in  ?ef.  2, 
however,  it  was  abandoned  and  a  substitute  pro^rair,  SYI^E'^^P, 
was  developed.  S'f^rUMF  provides  an  ordered,  addressed  hex 
durr  of  f^.e  s.yTbol  table,  a'^d  provides  a  mu'^h  rcre  useful 
and  efficient  means  of  accessing  the  syrrbol  table. 

It  was  felt  that  it  would  be  beneficial  to  include  and 
consolidate  the  documentation  and  descriptions  fror  the 
previous  theses  into  a  single  docu'^ent,  so  sectic^s  of  ?efs. 
1  and  2  appear  in  this  ^hesis.  Th'=  apDropriate  sections  vere 
updated  to  reflect  changes  in  the  program  ^ode  or  structure. 
In  others,  des'Tipt i ons  were  expanded  and  diagrams  were 
added,  or  the  section  was  included  ir  its  entirety. 


11'      lZS-;^-iSC^L    CC:f?iLI?    I^?LZ:^2a2£TiON 

A.      NPS-PASCAL    LANGUi^C-E    EACKSROUNI 

MPS-PASCAL  is  ar  i  mpler-ente  t  i  c^  of  ^he  PASC«L  larg-^^^e 
based  on  the  ESI/IS^  V-'cr^cin^  Draft/3  of  Standard  Pascal  [51, 
referred  to  in  this  thesis  as  "STAND^pT)  PASCAL."  NPS-P^SCAL 
is  in  complianre  with  STANIARI  PASCAL'S  definition  of  a 
conferring   processor   with    tne    followinjS:    three    exceptions: 

(l^i      Identifiers,      aire'^tives,      and    lahels    can   ^e    of   e^^y 
length,    as    prescrioed    by    STANT-A-i:      PASCAL,      "crovided 
their      uniqueness      can      be   deterrriined    fror   the    first 
thirty   characters . 
f?)    Integers    are    limited    to   any      value      "between      -32,ve6 
and    +32,767.    Peal    values    can    take    on   a'-y    negative    or 
positive        value        consisting-        "^f      fourteen      dibits 
rrultiplied    by    ten    to    the   -e4th    nower    through    ten      to 
the   +63 rd    power  . 
(3)      "Erp"    is    a    special    symbol,    or    reserved   v;ord,    in    tne 
NPS-PA3CAL   vocabulary    indicatinr    "end    of    pro^rrar." 
Consequently,    any   proP'ram    that      conforr^s      to      the      ^'ules      of 
STANDARL      PASCAL,    and   reets    the    above   listed   qual  if  i '^a  1 1  ons  , 
constitutes    a    syntactically   correct    NPS-PASCAL   program. 

The  University  of  Toronto's  parse  table  g'^nerator  !'6l 
was  used  to  specify  the  NPS-P/SCAL  grammar  in  LALR(l)  form. 
The  generator  operates  on  tne  131^  363/67  and  produces  parse 
tables  for  the  lan^uasre,  thus  permittinfi*  extensions  and 
corrections    to   be   made    in    a^^    easy   and   e'^ficient   manner. 
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B.   C^^^PILEP  ORrrANIZATION 

The  compiler  structure,  die^rernpd  in  Ii,s:.  1,  perforFiS  a 
siR:?le  pciss  through  the  source  pro-^ra"',  Droduces  an 
intermediate  languatre  file  and  may  print,  an  optimal  listing: 
of  the  source  progran  to  the  console,  "^he  one  pass  approach 
was  taken  tc  proviae  speed  and  to  reduce  the  size  of  the 
corrpiler.  The  disadvantage  of  the  one-pass  desisr  is  tne 
inatility  tc  specify  the  exa'^t  location  where  prorrarr 
execution  resurres  after  a  forward  branch.  To  solve  this 
prohlem,  labels  are  placed  in  the  internediate  code  where 
execution  should  continue.  The  resolution  of  label  l^^cations 
is  then  the  responsihility  of  the  in terpreter/translatcr  as 
it  scans  the  intermediate  code. 

The  ccrrpiler  "buil:?s  the  syrrbcl  table,  converts  all 
nurrbers  to  their  internal  representation,  and  s-enerates  the 
intermediate  code  file   and   the   symbol   table   fil,e.   The 

corrpiler   accepts  input  parameters  to  control  the  listing  of 

I 
the  source  program,  production  numbers,   or   token   numbers. 

The  creation  of  tne  intermediate  file  can  also  be  suppressed 

if  it  is  not  needed. 

c.  ?c^f^^'^F. 

The  S'^anner  analyzes  the  source  prcgra""  character  by 
character  and  passes  each  token  identified  to  the  parser. 
The  scan'^.er  can  provide  a  listing  of  the  source  statements 
and  eliminate  comments. 

The  scanner  is  writte^^  ir  four  sections  wh:?h  are 
selectively  executea  deDending  on  the  first  non-bla'^.k 


11 


NPS-P-*SCAL  CcHDil^r  Structure 
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I   TEST. 

PIN   ! 

FIGURE  1. 
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character  of  the  iriout  string.  When  the  section  to  execute 
has  "been  determined,  the  remainder  of  the  to'^en   is   scanned 

and  placed  in  the  input  array  ^-CCU^'.  I'he  first  byte  of  the 
ACCU^'  array  contains  the  length  of  the  token.  In  th'=  case  of 
tokens  that  exceed  the  siz^  of  the  A?H\Y  (72  bytes).  a 
continuation  fla^,  is  set  to  allow  the  scanner  and  parser  to 
accept  the  rest  of  the  token. 

The  four  sections  of  the  s'^anner  prc^ess  strings, 
nurrbers,  identifiers  and  reserved  words,  and  srecial 
characters,  respectively.  The  string  processing  ser-tio^^  is 
executed  whenever  the  first  char^ct^r  of  the  token  is  a 
quotation  rrark.  The  scanner  then  accents  each  succeeding 
character  until  a  second  quotation  nark  is  found,  indicating 
the  end  of  the  string.  The  seotio'^  that  processes  nurbers 
determines  the  type  of  the  number  being  scanned  as  it  scans 
eaf:h  character.  This  aeternina  t  ion  is  used  by  subroutines 
later  in  the  co""pilation  process  to  perform  tyr^e  checking 
and  conversion  to  internal  representation,  '''hen  the  scanner 
recognizes  an  identifier,  it  searcnes  the  vocabulary  table 
to  determine  if  it  is  a  reserved  word.  If  sc,  the  scanner 
returns  the  token  number  associated  with  the  reserved  word. 
Special  chara^^ters  found  in  the  vocabulary  table  are  handled 
as  separate  tokens  except  in  two  cases.  If  a  reriod  is 
followed  immediately  by  numeric  characters,  the  scanner 
assumes  a  real  number  is  bein^  scanned.  Vhen  a  pair  of 
special  characters  oc<"urs  consecutively,  (for  instance  :-■  ), 
the  scanner  passes  both  char.='cters  as  a  single   token  after 
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assi^nins"      ^he      ap'oroDrlate    token    r.uj'her    fron    the   vo'^abulary 
ta^le. 

D.      SYMBOL    T^BLE 

The  syrrbol  table  is  used  to  st'^re  the  attributes  of 
labels,  constants,  type  declarations,  ^/ariabl'^  identifiers, 
procedures,  functions  and  file  decla  ra  ti  <^ns .  This  stored 
inforTation  is  used  by  the  corpiler  to  verify  that  the 
proerarr^  is  seT.antically  correct  and  to  assist  in  code 
generation.  Access  to  the  syrbol  table  is  through  various 
subroutines  using  based  global  variables  to  uniquely  address 
the  elements  of  each  entry. 

1.   Svrrbol  Table  Construction. 

The  symbol  table  is  an  unordered  linked  list  of 
entries  which  e-rows  frorr.  the  last  byte  of  the  corpiler 
toward  hi=^h  rer^ory.  Individual  entries  are  either  acc-^sssd 
via  a  chained  hash  addressine  technique  (as  illustratea  in 
Figure  2),  or  by  rears  of  address  pointer  fields  contained 
in   ether   entries.  This  latter  nethod  of  access  is  required 


since   not   all   entries   in   the   syrrbnl   table   have 


an 


identifier,    called    a    printnarre,    as'^O'^iatel    wit'r:    the^. 

Each  location  in  the  hash  table  contains  the  nead  of 
a  sinrly  linlced  list  of  entries  w'-cse  printname,  when 
evaluated,  results  in  the  sare  hash  value.  A  zero  ir  a^^y 
cell  of  the  hash  table  indicates  that  tner^  are  nc  entries 
whose  prin^narTie  produces  tnat  value.  Eurin^  syrrbol  table 
construction  or  access,  the  e^lobal  variable  PrPiTNAKE 
contains    the   address    of   a    string    of    by t'=s    vhose    first 
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elener.t  is  the  lengtir.  cf  tn=  currerit  identifier,  frllowed  by 
the  identifier's  ^.SCII  characters.  '^he  e:lobal  variable 
SYi^HASH  contains  the  hash  '^ole  value  of  the  identifier.  The 
hash  code  is  the  sur  of  the  hex  values  of  the  PRI  :]TNAM? 's 
ASCII  characters,  riodulo  12^  (base  l£)  ,  Entries  that  produce 
the   sarre   hash  code  are  linked  to^ethe"  in  the  syiTool  table 

by  a  chair  which  is  accessed  via  the  entry's  collision 
field.  The  chain  is  constructed  in  such  a  way  as  to  have  the 
most  recent  entry  at  the  head  cf  the  chain. 

■p'ach  entry  in  the  symbol  table  contains  a  nurber  of 
fields,  seme  of  which  are  common  to  all  entries,  and  seme  cf 
which  apply  only  to  particular  classes  of  entries.  All 
entries  ha  ■'re  tne  same  first  t^ree  fields:  th^  'collision 
field  in  the  first  two  bytes;  the  previous  symbol  table 
entry  address  field  in  the  third  a^'d  ^curth  bytes*  and  the 
form  field  in  the  fifth  byte.  The  remaining  fields  are  used 
to  uniquely  describe  each  entry's  attributes  and 
characteri  sties. 

There  are  ei^ht  different  types  of  entries  i'^  the 
NPS-PASC^L  symbol  table.  Each  of  these  tynes  has  a  unic_ue 
three  bit  code  in  the  ri^ht-most  three  bits  of  its  form 
field.  The  reTiainins  five  bits  in  tee  form  field  furthur 
subdivide  the  entry  types  amons:  the  eight  ^lasses  according- 
to  the  "Darticular  characteristics  of  the  type  involved.  The 
form  fiela  bit  assi^-nments  are  summarized  in  Table  1.  'I'he 
characteristics  are  described  in  detail  as  each  type  cf 
syrrbol  table  entry  is  presented  below. 
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yOP[^  Field  Organization 


FOPT  Valu^ 


flame  cf  Entr' 


Pit  Pattern 


^0H 
xlH 


x?F 


71?. 
41^ 
29H 
HE 
1 9^^ 


4:2H 

4AH 
52H 
5AH 
7AH 


Latel 
Constant 

Unsigned  identifier 

Signed  identifier 

Intee:er 

Peal 

String 

Type 

Integer 

Peal 

Cnar 

Boolean 

Type  declaration 


dd    2Zd    303 


e0 

<?<?<? 

001 

01 

d2d 

?01 

2-0 

001 

001 

e0 

010 

001 

00 

011 

001 

01 

000 

010 

01 

001 

010 

01 

010 

010 

01 

01 


011 
111 


010 
010 


x3H 


03^ 

0EE 
13F 

IBF 
23H 
2^1 


Variable 
Scala  r 
Integer 
Character 
Eeal 
Complex 
Boolean 


00 
00 

00 

00 

00 

00 


000 
001 
010 
011 
100 

101 


011 

011 
011 
011 

011 

011 


x4^ 


04] 


P  r  0  c  ed  ''^  r  e 
Procedure 


100 


x5H 


05E 


"^unction 
Functi  on 


00^  000  101 


x6H 


06^ 


^ile 
File 


00   '^00  110 


x7H 


07E 

0FH 
4FH 

IFF 

9FF 
IFH 
27F 
2FH 
37? 


User  defined 
Scalar 

Fnumerated  subrange 
Integer  subrange 
Character  subrange 


Array 

Record 

Field  (of  rec 

Tag  field 

Variant  field 

Set 

File 

Pointer 


orl  ) 


00 

^00 

111 

00 

201 

111 

01 

001 

111 

10 

001 

111 

00 

^10 

111 

00 

011 

111 

01 

011 

111 

10 

011 

111 

11 

011 

111 

00 

100 

111 

00 

101 

111 

00 

110 

111 

ble  1. 
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a.  Label    e'ltries 

The  forr  field  of  a  label  entry  ha^  the  value  of 
dZL  The  hash  value  cf  tne  label's  printnare  is  ir  the  next 
byteT  the  hash  value  is  stored  for  ccllisior.  resolution 
later.  The  leisith  cf  the  label  follows  in  the  next  one  byte 
field.  The  printna.m°  characters  appear,  one  per  byte,  after 
the  length  field.  A  two  byte  field  following  the  printnare 
characters  contains  a  sequentially  renerated  integer  value 
which  is  assi^rned  as  the  label's  internal  label  nurrber.  This 
value  is  used  as  the  target  for  branching  in  the 
int ernediate  code.  A.n  exanple  of  a  label  entry  is  shown  in 
Fi?.  3. 

b.  Constant  Entries 

The  forr  field  of  a  constant  syrbol  table  ^^try 
identifies  the  type  cf  entry,  and  the  particular  type  cf  the 
constant  as  w=ll.  There  are  five  valid  types  of  constants  in 
N'PS-PASOAL:  an  unsigned  identifier  with  FOr.iY  =  eiH;  a  signed 
identifier  with  FCr[^  =  41^;  an  integer  with  FOPK  --  "9^:;  a 
real  value  with  FORf^'  =  IIH;  and  a  string-  constant  witn  FOPI^ 
=  19H.  Following  the  forr  field  are  tne  "orirtpaje  hash 
field,  the  length  field,  and  the  "nrintnane  characters. 

The  value  field  r.ay  consist  of  another  length 
field  and  t^e  print  name  (Characters  in  the  case  cf  identifier 
and  strins-  constants,  or  it  rray  contain  the  internal 
representation  of  a  -^o^stant  nurber  (two  bytes  for  integers 
or  eight  bytes  for  reals).  Two  exanples  of  -constant  entries 
are  shown  in  Figs.  4  and  5. 
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LA3FL    c^; 


l^errory 

Address 

73?^E 

'^301  E 

7322E 

'  (.  c*  o  _ 

7304E 

7325E 

7306B 

7307E 

7308E 

7309H 

730  AH 

Syrrtiol 
Tal)le 

A5H 

01F 


3DH 
C^3E 


0eH 

5CH 


0?E 

3eH 


3'^E 
00  H 
00H 


\         COLLISIO^I 
> 

/        ATDPFSS 

\        PPTVIOUS    S1T3L 

> 
/         ENTRY   AD TRESS 

EOR^" 

EASE 

PRINTNAME  lENCTE 

ASCII  CEARACTE^  6 

ASCII  CEARACTER  7 

\    L^PEL  NUMBER 

> 
/        '"3" 


SYMBOL    TA^ry    LA^EL    ENTRY 
FIGURE    3. 
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CONST  EOIL  =  21?; 


Me'^orr 
Address 

730'BE 

732"  CR 

730  DH 
733trF 

730FE 
7310H 

731  IE 
731  ?H 
731  3  H 
7314H 
7315E 
7316H 
7317E 


Svrbol 
Table 


30E 
00E 


00H 
73E 


09F 
26E 


04:E 

42B 


4FH 
49E 


4CE 
D4H 
30E 


\    CCLLI3ICN 
> 

/    ADDRFSS 

\    PREVIOUS  S?T3L 

> 
/    E'JTPY  ALLErSS 

FORM 

HAS^ 

PP.  INTN  A.^*!  Lf^MGTE 

ASCII  CEAP/CTEP  P 

ASCII  CEAPACTEP  0 

ASCII  CEAHACTE^  I 

ASCII  CEAPACTIE  I 

\  CO\STANT    VALUE 

> 
/  C'^ENT'^Y 


SYI^EOL  TAPLE  UNSIGNED  INTEGEP 
CONSTANT  ENTRY 
EIGUP^  4. 
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CON'ST    ^OIL    =    '30IL'; 


Add  res  s 
770EE 
730  CH 
7.33DE 

730  YF 
730FH 
7312H 

731  IE 
731 2H 
'7313H 
731  4E 
731 5  H 
7316H 
731 7  E 
'7318E 
7319E 
731 A  E 


Svrbol 

Table 


00E 
0eE 


20'S 
73  E 


19H 


^th 


04B 
42  H 


4FS 
49E 


4CE 
04  B 


42B 

4FH 


4.QU 


^pu 


\    C^LLISIOM 
> 

/    ADDRESS 

\   ?^-VIOUS  s^t'b: 

> 
/    EKTHY  AITEESS 

EOE!^ 

EASE 

PRINTN.Ar^E  LENCTE 

ASCII  CEAEACTER  B 

ASCII  CE4FACTI?  0 

ASCII  CEAHACTEH  I 

ASCII  CEARACTEE  L 

STEI^r.  LENCTE 

ASCII  CEARACTEE  E 

ASCII  CEARACTEE  0 

ASCII  CEAHACTE-  I 

ASCII  CEARACTEE  L 


SY^EQL    TA3IE    STPIMG    CONSTANT    ENTRY 
EIC-URE    5. 
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c.   Type  entries 

MPS-PASCAL  has  two  kivAs    of  type  entries  in   its 

syr"bol   teble:   si.Tple   t/pe   entries   and   type  r'.ecla  re  ti  on 

entries.   The   sin^ple   type  entry   can   either  "be   one   of 

M?S-PASCAL's   standard  types,  or  a  previously  defined  simple 

type  declaration  (s-^alar  or  subrange).  In  the  latter  case,  a 

sirDle  tyre  entry  is   rrade   in   the   symbol   table,   with   a 

pointer  to  the  scalar  or  subran.-ee  type  t^eclaraticn  entry.  In 

the  forrer  case,  one  of  the  following?  standard  types  will  be 

assigned  to  the  type  entry. 

Integer   -   The   values  of  this  type  are  a  subset  of  tne 
w^^ole  numbers  whose  range  is  th^  set  of  valuest 
-ra  xint  .-naxint+l  ,.  .  .  ,-l,f^,l  ,  ..  .rraxirt-l,rraxirt 
where  rraxint  =  32,76'^. 

Peal  -  The  values  are  a  subset  of  th°  real  numbers 
consisting'  of  fourteen  die-its  multiplied  by  ten  to 
the  -64th  power  through  ten  to  tne  +f.3rd  pow^r. 

"Boolean  -  The  values  are  denoted  by  the  identifiers 
"false"  and  "true",  such  that  false  is  less  than 
true. 

Character  -  The  values  of  this  tyne  are  the  defined  set 
of  characters  described  in  Pef  ?.  The  following 
relationships  hold  for  character  types: 
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(1)  The  sub<^'='t  of  chars'^ter  values  representing-  the 
dibits  '3  throu^ih  9  is  ordered  and  contiguous. 

(2)  The  sub'^et  of  character  values  representing  the 
up"ner  case  letters  A  through  Z  is  ordered  end 
contiguous . 

(?)  The  subset  of  character  values  representing  the 
lower  case  letters  a  through,  z  is  ordered  and 
cont  iguous . 

Type  declarations  entries,  however,  are  generated  frorr  user 
defined  types  found  elsewhere  in  the  source  prorran.  It  is 
possihle  to  define  a  chain  of  ty^e  declarations.  An  example 
would  be  an  aT*ray  of  the  type  a^^ray  whi':'h  is  itself  o^  type 
integer . 

The  syr.bnl  table  entry  for  a  type  is  as  follows. 
An  inte^rer  type  has  the  F'^P.M  valu^  of  4:2H ,  a  re^l  type  has 
the  FCPK  value  of  -iAH,  a  character  type  has  ^he  70F^  value 
of  52H,  and  a  boolean  type  has  the  popr  value  cf  5A^^ .  A  ^0?.^ 
value  of  7A^  indicates  that  an  additional  type  declaration 
entry  rnust  be  accessed.  The  fi'=ld  following  tne  forr  is  a 
one  byte  field  containing  the  hash  value  of  the  printnarre. 
The  next  byte  contains  the  printname's  le'^frth,  which  is 
followed  by  the  printnarp  characters  of  the  type  identifier. 
The  last  two  bytes  contain  th^  address  o^  the  specified 
type.  Fxarrples  of  sii^ple  type  entries  are  snown  in  ?igs.  6  - 
9. 
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TT?^  NU"^  =  I  ^!  TEG  ER; 


yerory 
Address 

7322E 

73P3E 
732  4H 
7325E 
7326F 
7327H 
732eE 
7329E 
732AE 
'732PE 
732CE 
732LR 


S/rbol 

Table 


30B 

00E 

leH 

73E 

•iPE 

70E 

03  E 

4IB 

55H 

4:DH 

06  E 

01H 

\    COLLISIO'I 
> 

/    AIERESS 

\    PPEVIOUS  SBTBL 

/    ENTRY  ADDRESS 

EASE 

?RINT:i4r^I    LENGTE 
ASCII    CEARACTS^    N 
ASCII    CE.^BACTZR    U 
ASCII    CE^^RACTEP    M 
SPTEL    AII'RE SS    01 
PAEENT    TYPE 


SYr^"BOL    TABLE    SI^'PLF    TYPE    INTEGER    ENTRY 
FIGURE    6. 
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TYP^    MU!^    =    chap; 


Addres  s 
732211 
7:32  3E 
7324E 
7325H 
732  65 
73r7H 
7328H 
7329E 
73?  AH 
732BH 
'732CH 
732EH 


S.yrrljOl 
Table 


00H 

30  £ 

16E 

73  H 

52H 

^?:?. 

?3H 

4Trn 

55  H 

4EH 

lyE 

5^1E 

\    COLLISION 

> 
/    AEDH^SS 

\    PP.iVIOUS  SPTPI 

> 
/    EXTRY  ADCPPSS 

EASE 

PRINT NAME    L^\GTE 
A.SCTI    CEAPACTEP    N 
ASCII    C5ARACTEP    U 
ASCII    CEARACTFR    K 
SBT^L    ADDRESS    C^ 
PARENT    TYPE 


SY^^^CL    TAPLS    SI^^LE    TY^E    ENTRY 
FI'^URF    7. 


TYPE  NUM  =  "^OOLFj^N  ; 


Address 
72?2F 
732  3  H 
732  4:H 
73P5H 
732eH 
7327H 
7328  E 
7329H 
'^32AH 
7323E 
732CH 
732I}E 


SyT'tol 
Table 

(^0E 


00H 
16E 
73H 


5AH 
73H 


73H 
41 H 


55H 

4IF 


2AH 


\    COLLISION 


/ 


AEIRFSS 


\    Previous  SBT^L 

> 
/    EM  TRY  AriR^SS 

ropM 

HASH 

PRINTN  i-.'^E  lENC-TE 
ASCII  CHARACTFF  N 
ASCII  CFAFACTFF  U 
ASCII  CEARACTER  ^ 
SBTPL  ADERFSS  ^F 
PAP  FN'"  TYPE 


SYMBOL  TABLE  SII^PLE  TYPE  ^NTRY 
FICURF  £. 
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TYP?  Mur  =  p?al; 


Ad  dress 
7322E 


7324H 

772  5R 

73?6E 
732^7^ 

732  en 

7329E 

7  32  AH 
732  ?H 
732  CH 
732  DH 


Syrool 
Table 


2'^E 


18H 
73E 


4  AH 

7eE 


^?E 
4EE 


55  E 
4rH 


14E 
01E 


\    COLLISION 

/    ATLRESS 

\    PREVIOUS  S^7?I 

> 
/    E'JTEY  ATDPESS 

EORi^ 

FA  S  H 

PPIMTN.\KE  LEiC-TH 

ASCII  CE/R4CTER  N 

ASCII  CE.ARACTEP  U 

ASCII  CEAEACTI?  y. 

SPT3L  AEIRESS  CE 

PA REN i  TYPE 


SYKEOL  TA-LE  Slf'PLE  TYPE  ENTRY 
EIGURE  9. 


There  are  seven  different  user  defineblp  tyoes 
ir      K'?S-PA5CAL.      A      type      declaration      entry      is    constructed 

whenever   a    scalar    type,    suoran^e    tvpe,      array      tyrie,      record 

type,    set    tyT3e,    file   tyoe ,    or   pointer    type   is    eri"  cuntered . 

^1^  Scalar  TvTDes.  ?y  definition,  a  scalar  type 
is  an  ordered  set  of  values  whose  identifiers  are  enunrerated 
to  denote  their  values.  The  forr  fi°ld  entry  for  scalar 
types  has  the  value  37H.  Scalar  e'-.tri^s  are  the  only  type 
declaration  entries  that  have  an  a:'ce5sible  printnarre. 
Consequently,  the  next  two  fields  hold  tne  print'^a'^e  hash 
value  and  length.  'I'he  printnarre  characters  follow  these 
fields.  The  next  field  is  a  byte  value  contai'^ir.g:  the 
enurrerat^i  value  of  the  scalar  identifier.  Th^  enuporated 
values  (0,1,?...)  are  assigned  tn  the  scalar"^  i'^  the  order 
in  which  they  appear  in  the  declaration.  The  final  field  is 
a  two  hyte  field  stori'^--  the  syrool  table  address  of  the 
parent  type.  Th°  scalar  typ'^  entry  will  he  printed  to  "by  tne 
variable  entry  clairins'  this  tyoe.  An  era^ple  of  a  scalar 
tyTje    entry   is   Dresented    in   "^ip.    10. 

^Z)  Subrange  Tynes.  A.  subra'^^'e  type  is  a 
duplicate  decla-^ation  of  anv  other  previously  defined  si^alar 
type,  integer  type,  or  character  type,  but  with  a  specified 
lower  and  upper  bound  on  its  elerents.  The  forr  field  of  a 
subransie  entry  is  dm  for  enumerated  elere^ts,  47^  for 
integer  elerents,  and  BFH  for  cha-^acter  eleri:ents.  Pytes  six 
and  seven  store  the  address  of  the  subrange  elerrert 's  parent 
type.    Eytes    ei^ht    and    nine   hold    the   low    value    of    tbe    ranre. 
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A  d  d  r  e  5  s 


S/rrbol       ! 


rr'Z'Z  r" 

2^H 

733  rii 

?0H 

733  EH 

2FH 

''SSFH 

73E 

734?E 

?12 

^3411-: 

5^H 

734:2H 

^3H 

7343E 

f?E 

7344E 

45H 

734oE 

■±4E 

'^346E 

00H 

7347H 

2^H 

7348  H 

73  H 

_ 

1 

I 

\         CCLLI3I0": 
> 

/         /irLRZSS 

\         P^IVIOUS    S^T^L 

> 

-lA  3  H 

PEIN'^iJ  \^:~   LTN3TH 

ASriI    CaAHACTFR    R 

ASCII    CHARACTER    E 

ASCII    CHA.RACTE?.    C 

ENTN^ERATICN    VALUE 

\         S^TPL    ADERESS    0^ 
> 

/         PARENT    TYPE 


STKIOL    TA^LE    Sir^PLE    TYPE    ENTRY    (  SCALAR ) 
EIGURF    U, 


29 


while  the  next  two  hytes  contain  the  hia:n  vc=l!ie  of  the 
range.  The  follcwir.^  field  is  two  hvtes  Icnr  and  strres  the 
total  nurrber  of  elerents  ir.  th»  ran^-^.  The  displacerent 
vector  is  rot  stored  with  the  suhrang'^,  sinc°  any  given 
subrange  could  serve  as  the  inder  to  oTays  of  different 
"base  types.  The  displacement  vector  is  stored  i^^stead  with 
the  array  entry  itself.  This  entry  will  be  pointed  to  by  a 
variable  entry  clairing  this  type.  An  example  of  a  subrange 
type  entry  is  shown  in  Fig.  11. 

(3)  Arra^  ilSii.  The  preceding  two  type 
declaration  entries  in  N^S-P^SCA.L  are  called  siTple  type 
entries.  They  are  symbol  table  entries  using  a  single, 
predefined  type.  Structured  types  are  co^posi  tl  o^^s  of  types. 
In  other  words,  one  or  more  ty^es  are  used  to  describe  a 
sin,s:le  syrbol  table  entry.  K  structured  type  will  have  a 
type  declaration  entry  which  contains  the  printname,  and 
which  points  to  the  structur^e  type  entry. 

The  array  ty^e  is  a  structured  type 
consisting  of  a  fixed  nurrber  of  'components  that  are  all  of 
the  same  type,  called  the  component  type.  The  number  of 
conponents  is  specified  as  a  scalar  or  subrange  type  and  is 
referred  to  as  the  index  type.  INTEC-"^R  and  HTAL  types  are 
not  legal  index  types;  however,  the  scalar  or  subrange  type 
can  be  of  the  tyre  integer. 

Tne  symbol  table  format  for  ar.  array  entry 
has  the  form  value  of  17H.  Tne  following  byte  specifies  the 
number  of  indices,  or  dimensions  in  the  array.  The  next  two 
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TYPE  ?^iN^  =  ^rr.  .Piui?; 


^'sr^o^y 
*.  d  d  r  e  s  s 

73A2E 

•73A3H 

73A4E 

73A5E 

73AeH 

73A7E 

73«l8E 

73A9H 

73AAH 

73A5n 

'73ACH 

73ADE 


SyrlDol 
Table 


^0E 


34:E 

73E 


2^E 


73  H 


ecE 


3'2H 


0eE 

■33  E 


\  COLLISION 
> 

/  ADDRESS 

\  PREVIOUS    Si^lL 

/  ENTRY  A.rrRESS 


"OR^ 


> 


S^TBL    ADTPESS    CE 

PARENT    TYPE 

SjPRANGE 

LCW    VALUE 

SUPR/NCE 

HIGH    ^Pl'li 


NUK"BEP    OE   ELEI^^NTS 


S^^BOL    '^ALE    SUBRANGE    TYPE    E'lTRY 
EIGURE    11. 
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fields  are  both  two  bytes  long,  the  first  rortaining  tne 
address  of  the  component  type;  the  second  containing  tne 
total  storage  requireirent  for  the  array  in  bytes.  The 
eleventh  "byte  of  the  entry  holds  a  value  designating  the 
type  of  the  array's  component  as  defined  in  Table  2.  A  two 
byte  field  follows  with  the  symbol  table  address  of  the  type 
entry  of  the  array's  first  dimension.  This  is  followed  by  a 
two  byte  field  which  contains  the  displacement  vector  for 
this  dimension.  The  displacement  vector  for  each  dimension 
represents  the  distance  in  bytes  between  two  elerents  of  the 
array  which  have  a  diff'^rence  of  one  in  the  corresponding 
subscript.  If  the  array  nas  more  than  one  dimension,  four 
more  bytes  are  allcted  in  the  symbol  table  tc  store  the 
address  and  displacement  vector  of  each  additional 
dimension.  This  entry  will  be  pointed  to  oy  tne  variable 
entry  claiming  this  type.  An  example  of  an  array  type  entry 
is  shown  in  "Fig.  12. 

(4)  Record  Ty£es  .  A  record  is  another  NPS-'pASCAL 
structured  type.  This  structure  has  a  fixed  number  of 
components,  callea  fields,  each  of  which  can  be  of  any 
defined  type.  The  symbol  table  entry  for  a  record  has  the 
form  field  value  of  IFE.  3ytes  six  and  seven  contain  the 
storage  requirements  in  bytes  for  thp  entire  record.  Pytes 
eight  and  nine  store  the  symbol  table  address  of  the  type 
entry  of  the  last  field  contained  in  the  record  structure. 
The  remaining  field  entries  are  located  by  chaining  back'^ara 
to  the  parent  record  entry  via  the  previous  symbol  taole 
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3ASIC  TY?F  oy  CON'PONENTS 


Value 

eep 

21H 
2?F 

■04H 
^5^ 


f^eanin^  (Type) 

Ordina  t? 

Integer 

Cha  racter 

Real 

Corrplex 

■Boolean 


TA.^LF  ?. 


TYPE  MIX  /RPAYri..e"l  ny  CCLO?; 


Meror.y 
Address 

73CCE 

7?CLE 

73CFH 

73E0E 

73C1H 
73D2H 
73r3H 
73I)4F 
73D5H 
73r6E 
73C7H 
'?3D6H 
7.3P9H 

73DAE 
73I)?E 
73DCE 


Syn-bol 
Table 


20H 

70E 

PDH 

73H 

17H 

C'lH 

2TE 

73  E 

0eE 

02H 

?2F 

01 H 

'Z0E 

IIF 

73H 

TH 

f3H 

\    COLLISION' 

> 
/    AILR^SS 

\    PREVIOUS  3PTPL 

> 
/    FNTR^^  ADDPiSS 

FORM 

NUMPEP  OF  LINEN'S  IONS 

\   SPTPL  APDBFSS  OF 

> 
/   CO!^PONEf'T  TYPE 

\       TOTAL    ST  OR  AC- F   ^ECTTIREC 

> 
/         I. "J    3YTFS 

TYPE    OF    CO'^^PCNFNT 


> 


A-RAY 

OFFSET 

SP'^FL    APIR^SS    OF 

FI^ST    ri^'FVSION 

DISPLACV^NT    VF'TO? 

0^    FIRST    I  I^^F^  *^  I  ON 


SYM'^OL  TA^LF  ARRAY  T^PF  FNT-Y 
FIGURE  12. 
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entry  address.  An  example  of  a  record  type  entry  is  shewn  in 
Fig.  13. 

Earh  record  field  consists  of  ar  identifier 
and  a  type.  The  forn"  field  of  a  record  entry  has  a  value  of 
5FH.  The  following  two  fields  are  bytes  for  the  hash  and  the 
leniS-th  of  the  printname.  The  next  field  holds  the  printnane 
characters.  The  address  of  the  parent  record  is  stored  in 
the  next  two  hytes.  The  following  field  has  a  one  byte 
length  and  is  used  to  store  the  record  field's  type.  Tne 
value  stored  is  also  ta^^en  fror  Table  2.  Two  rove  bytes  are 
used  to  store  the  synbol  table  address  of  the  type  just 
indicated.  The  last  field  of  this  entry  is  two  bytes  long 
and  holds  the  offset  of  the  record  field  fror.i  the  record 
base . 

NPS-PASCAL  supports  the  variant  fi^ld  and 
tag  field  constructs  of  records.  Thes'^  two  kinds  of  record 
fields  have  symbol  table  entries  similar  to  the  one 
described  above  for  fields,  with  the  exception  of  the  form 
field,  which  is  riH  for  variant  fields,  and  9FH  for  tag 
fields.  An  example  of  a  field  entry  is  shown  in  Fig.  l^-. 

(^^  Set  Tvres.  The  set  structure  defines  a  set 
of  values  which  is  the  power  set  of  a  declared  base  type. 
The  base  type  is  required  to  be  a  scalar  or  subrange  type. 
The  set  type  symbol  table  entry  has  a  form  field  value  of 
27H .  The  following  two  bytes  contain  the  symbol  table 
address  of  the  set  type  identifier.  An  example  of  a  set  type 
entry  is  shown  in  Fig.  15. 


7^ 


2M  r ; 


Merory 
Address 

73eBE 

70P(Cn 

73ei^E 
703FE 
709  0H 
739  in 
709?H 
70a3H 


Syrbol 
Table 


ddE 


7BH 

7?H 


IFE 
10H 


22S 
A4H 
70  H 


\  CCLLI3I0N 

/  Arr?.Ess 
> 

/  TTNjTpY  ^DDPESS 

\  TOTAL  STOPATE 

> 

/  P^CUTPED  IN  BY^ES 

\  S^^EL  AFIRESS  CF 
> 

/  L*3T  HECopr  EIELI 


SYf^"^OL  TABLE  RECOPE  TYPE  ENTPY 
FIGURE  13. 


TYPF    CCMT'LZ7=E^CCRD 

RE,  ir^:RIAL; 

end; 


Address 

•  7094:E 
7?95E 
70Q6H 
7397E 
7393E 
7099E 
739AE 
709PE 
709Cn 
739DE 
709EH 
70O7E 
7ZA0E 
70A1E 
70A2H 
70A3H 


Syrbol 
Table 


ABE 

(^2E 


8PH 
72E 


5FE 
17H 


02B 
52E 


70E 
03  E 


14H 
01B 


een 

00E 


\    COLLISIO^J 

> 

/    ATERESS 

\    PREVIOUS  S'^TPL 

> 
/    E^JTHY  ADLRESS 

FORM 

EASE 

PRINTNAME   L^MGTE 

ASCII  CBARACTER  R 

ASCII  CEARACTER  E 

\     S3TRL  AEDRESS  OF 

> 
/     PARENT  RECCE 

TYPE  OF  THIS  FIFLE 

\  SBT^L    AEEHFSS    0^ 

> 
/  EIELE    TYPE 

\  OFFSET    FROh 

> 

/  EEC ORE    BASF 


SYMBOL    TABLE    RECORE    FIELE    F^:TRY 
FIGURE    14. 
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TYP5    ■^LAC-=SET    C^    CCLCP; 


f^enory 
Address 

73E8E 

73E9H 
73T:AH 
'73TBE 
73ECH 
73EDH 
73EEE 


Syn-ibol 
Taole 


00E 

0eH 


73B 


?7H 
2rS 


7t  c 


\  CCLLISICN 
> 

\  PP.SVIOUS    S3T3L 
> 

/  en  thy  a i  dress 
:form 

\  SPTBL  ADEPESS  CE 

> 

/  SET  TYPE 


SY^^BCL  TABLE  SET  TYPE  ENTPY 
EIGURE  15. 


33 


(§.^  Iil§  TlR^l'  ''-  N?S-?ASCAL  structure 
consi5tin^  of  a  sequence  of  components,  all  of  the  sarr^e 
type,  is  called  a  file.  A.  file  type  indicates  a  natural 
ordering  of  the  components,  whose  position  in  tne  file 
defines  the  sequence.  A  file  type  declaration  entry  in  the 
symbol  table  has  a  form  field  value  of  cFE.  The  symbol  table 
address  of  the  file  type's  identifier  is  contained  in  the 
next  two  bytes.  An  example  of  a  file  type  entry  is  shov/n  in 
Fig.  16. 

(Z^  £2ilLi§I  2l2^1'  NFS-PASCAL  suDports  dynamic 
variables  which  are  generated  without  any  correlation  to  the 
static  structure  of  the  program.  These  variables  are 
assigned  a  special  type  called  pointer  type.  The  form  field 
value  is  set  to  37E ,  while  bytes  six  and  seven  held  the 
symbol  table  address  of  tne  pointer  type's  parent  entry.  An 
example  of  a  pointer  type  entry  is  shown  in  Fig.  17. 
d.   Variable  Entries 

Fach  variable  declared  in  an  NFS-PASCAL  prc^-ram 
is  inserted  into  the  symbol  table,  '^he  for''  field  of  tne 
variable  entry  contains  a  value  which  describes  the  type  of 
the  variable.  The  values  for  this  field  and  the  associated 
types  are  shown  in  Table  1.  Follcwini-'  the  form  ■'^'ield  are  tne 
fields  containing  the  variable  identifier's  printnam.e,  hash 
value,  length,  and  the  printnane  cnaract^rs.  i^  two  hyte 
field  which  contains  the  variable's  starting-  address  in 
merory  appears  after  tne  printname  characters.  This  addi^ess 
is  an  offset  from  the  base  of  the  variable  area,  called  the 


TYPE  DAT/=FILE  01  NUi^; 


I^erory 
Address 

737EE 

73FFH 

740  0E 

7431H 

7402H 

74e;oH 

7434H 

7400H 


Syrbol 
Tabls 


00H 
00  H 


EFH 
7?H 


22  H 


73E 


00E 


\    COLLI  SIGN 
> 

/    AILRZSS 

\    PREVIOUS  S3TPL 

> 
/    FNTRY  ADDPYSS 

FORM 

\    3BT3L  ADERESS  0] 
> 

/    FILE  TYPE 

ASCII  CHARACTER  Z 


SYMBOL  TAPIE  FILE  TYPE  ENTRY 
FIGURE  le. 
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TYPF  ?:  ??IKF» 


Memory 
Address 

743  0H 

7431E 

743?E 

7433H 

7434H 


'Z  c 


74 


743eH 


Symbcl 
TalDle 


K0K 
20E 


21E 


V4r: 


37H 

94E 
73E 


\    COLLISION 

> 
/    ADCEZSS 

\    PREVIOUS  SPTEL 

> 
/    ENTRY  ADTRFSS 

FORM 

\    SrTBL  ATIRESS  OF 
> 

/    POINTER  TYPF 


SYMECI  TABLE  POINTER  TYPE  ENTRY 
FIGURE  17. 
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Program  Pefer?nc9  Table  (FBT),  which  aldress  is  assigned  ly 
the  NPS-P4SCAL  code  generator.  The  variable's  type 
ieternines  the  number  of  bytes  assif;ned  to  stor=>  the 
variable  in  the  rPT.  The  compiler  keeps  a  running  total  of 
the  amount  of  storage  assigned  to  all  variables,  and 
includes  this  value  in  the  pseudo  code  at  the  completion  of 
a  successful  program  compilation.  The  interpreter/translator 
subsequently  converts  the  relative  addresses  in  the 
intermediate  code  to  absolute  address  in  the  final  tar^-et 
machine.  Next  is  a  two  byte  field  which  contains  the  SrTEL 
address  of  the  variable's  type.  In  the  case  of  the  stariard 
Pascal  types  integer  (FCR!^  =  ?BE),  real  (lEE),  character 
(13H)  and  boolean  (?3H),  this  is  the  address  of  that  type  in 
the  EUILT$IN$TEL.  In  the  case  of  integer  and  character 
subrana:es  (2^H),  this  field  contains  the  addr°ss  of  the 
subrange  type  entry.  In  the  '"ase  of  a  scalar  (03?),  this 
field  contains  the  address  of  the  last  of  a  series  of  scalar 
(07H)  entries.  The  remaining  scalar  entries  are  locatel  by 
chaining  bacicward  to  the  variable  entry  via  the  previous 
symbol  table  entry  address.  If  the  variable  is  a  complex 
declaration,  (array,  reco^'d,  set,  file  o^  pointer),  this 
field  contains  the  address  of  th°  complex  type's  entry  in 
the  symbol  table.  If  the  variable  is  of  a  type  previously 
defined  in  the  program,  this  field   contains   a   pointer   to 

that  type  declaration.  Examples  of  variable  entries  are 
shown  in  Figs .  1£  -  ?v3. 
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VA^.  X: integer; 


Address 
6FCEE 
6ECCH 
6FCDE 
6  EC  En 
eFCEH 
6ED3E 
6FD1H 
eEB2H 
6^D3n 

eFr4:E 
erc5H 

6ED6B 


Syr^bcl 
Table 


00H 

00H 


3DH 

02H 

eBE 

58  E 

01H 

sen 

30B 

00E 

ees 

2  IE 

\    COLLISION 

> 
/    ALCRESS 

\    PREVIOUS  S3T3L 

> 
/    EMTRY  AILRESS 

FORM 

EASE 

print;jame  lsngte 
ascii  character  x 

\    P^T  LOCATION 
> 

/'   ASSIGNEE 

\    SYr^BOL  TABLE  AILRESS 

> 
/    0^  PARENT  TYPE 


SYMBOL  TABLE  VARIABLE  ENTRY  (INTEGER) 
FIGURE  16. 


VAH  0?;{^LUS,MIMUS,TI^ES) ; 


r^'errory 
Address 

?014:H 

7015E 

7016E 

701 7  H 

72ieE 

7019H 

701  AH 

701PE 

701  CE 

70irH 

701EE 

701 FE 

7020  H 

Syrrbol 
Table 


0ZH 
00E 
07H 


7eH 

03E 


IFE 
02  H 


4FH 
5eH 


eFE 
03E 


3EH 
70H 


\    C':iLLISIO\ 

> 

/    ADDRFSS 

\    PHEVICIS  SETFL 
> 

/   Fr^TRY  Arrp.Fss 

HASH 

PHINTN'Ar.E  LFNGTH 

ASCII  CH\RACTF?  C 

ASCII  CHARACTER  F 

\    ?^T  LOCATION 
> 

/    ASSIGNED 

\    SE^EI  *riRF?S  CF 

> 
/    LAST  SCALAR 


SY^ECL    TAELE    VARIABLE    ENTRY    (SCALAR) 
FIGURE    19. 


^A 


VAR  A:AR.^AY[1..5]  G?  INTEGZR; 


Merory 
Address 

7721E 

77P2H 

7723E 

772  4:H 

7725  E 

772  6  E 

7727E 

772SE 

7729H 

772AH 

772EE 

772CH 


Syrrbol 
Table 


ddE 

?0E 

14H 

77H 

23H 

41 H 

31S 

4:1E 

03H 

ddE 

3AE 

77H 

\    COLLI  SI  C\' 
> 

/    AILRESS 

\    PPEVIOUS  3BT?L 

> 
/    ENTRY  ADLRESS 

rORi^ 

EA5II 

PPINTNAME  LENGTE 

ASCII  CEAR/CTER  f- 

\        PPT  LOCATION 

> 
/    ASSIGNED 

\    SITPL  AILRISS 

> 
/    OE  ARRAY  TYPE  ENTRY 


SYMBOL  TAPIE  VARIABLE  ENTRY  (COMPLEX 
EIGURE  2<^, 
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e.   Procedure  and  jiunction  entries 

Every  procedure  and  furction  in  an  N?S-?ASC*L 
program  has  an  associated  entry  in  the  symbol  table.  In  the 
case  of  a  procedure  entry,  the  form  field  is  assigned  the 
value  04-H.  The  hash  value,  length  of  the  printname,  and  the 
printnarre  characters  immediately  follow  the  form  field.  A 
one  byte  field  follows  and  stores  the  number  of  parameters 
associated  with  the  procedure.  A.  two  byte  field  is  next, 
storing  the  symbol  table  location  of  a  listing:  of  the 
procedure's  parameter  types.  This  listing  is  referenced  by 
the  compiler  to  ensure  proper  mapping-,  and  is  located 
immediately  after  the  final  procedure  entry  in  the  symbol 
table.  Following  the  parameter  type's  address  fiell  in  the 
procedure  entry  are  three  more  two  byte  fields.  The  first 
field  gives  the  PF.T  address  assigned  to  tne  procedure 
identifier.  The  second  field  gives  the  ?RT  address  assigned 
to  the  procedure  save  block  pointer  (S3?).  The  SB?  permits 
recursive  subroutine  calls,  and  will  be  explained  in  the 
section  on  Code  Generation.  The  final  field  in  the  entry 
holds  a  label  value  that  must  be  branched  to  when  the 
procedure  is  invoked.  An  example  of  a  procedure  ^ntry  is 
shown  in  Fig.  21. 

A  function  entry  in  the  symbol  table  duplicates 
a  procedure  entry  with  two  exceptions.  A  function  entry  has 
a  form  field  value  of  05H ;  and  one  byte  field  is  adaed  at 
the  end  of  the  entry  to  designate  the  type  of  the  function. 
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PPOCEDUEi    LO    (X:INT^GFP;    VAR    YcINTYGIP): 


Memory 
Address 

746  LE 
^46FE 
74:6^H 
7470E 
7471H 

747  2H 
7473E 
7474H 
74'75H 
7476H 
7477  E 
747£H 
7479E 
74'^AH 
747BH 
747CH 
747  DE 
747EE 


Syrrbol 
Table 


00E 

zen 


60H 
74E 


04H 
IBH 


02E 
4CH 


4FH 

02B 


97E 

74H 


22H 

00H 


2£H 
2SH 


01 H 
00E 


\    COLLI  SIGN 

> 
/    ALLRTSS 

\    PPEVIOUS  SBTEL 

> 
/    ENTRY  ADLRESS 

yORM 

EASE 

PRINTNAME  LENGTE 

ASCII  CHARACTER  L 

ASCII  CHARACTER  0 

NUMBER  OF  PARAMETERS 


\ 

\ 

/ 

\ 

/' 

\ 


> 


SETIL  ADLRESS  0^ 
PARAMETER  LISTING 
PRT  LOC/TION 
ASSIGNED 

SAVE  BLOCK  PGINTEP 
LOCATION  IN  PRT 
LABEL  PRECEEEING 
PROCEDURE  CODE 


SYMBOL  TABLE  PROCEDURE  ENTRY 
FIGURE  21. 
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Function  type  assi^-nments  are  also  ta^en  from  Table  2.  An 
exanple  of  e    function  entry  is  shown  in  7i^.  22. 

(1)  lorrnal  Paranieters.  Forrral  parameters  provide 
a  mechanism  that  allows  a  procedure  or  function  to  te 
repeated  with  various  values  being  substituted.  The  fornal 
parameters  are  declared  in  the  prci^edure  or  function 
declaration  and  can  be  of  four  types:  value  parer.eters, 
variable  parameters,  procedure  -oarameters  and  function 
parameters.  Each  declared  parameter  has  an  associated  symbol 
table  entry.  A  value  parameter  entry  has  exactly  the  =;ame 
format  as  the  variable  entry.  A  variable  parameter  entry 
also  duplicates  a  variable  symbol  table  entry,  with  the 
exception  of  the  form  field.  The  hi^h  order  bit  of  the  form 
field  is  set  to  one  for  all  variable  parameters.  Procedure 
and  function  parameters  are  entered  as  des-^ribed  above  for 
procedure  and  function  symbol  table  entries. 

Figure  23  illustrates  a  sample  series  of  symbol 
table  entries  with  a  procedure  e'^try  followed  by  various 
formal  parameter  entries.  Note  that  the  final  few  bytes  show 
the  listing  of  the  procedure's  paramet'^r  types  that  will  be 
utilized  for  mapping  actual  parameters  into  the  formal 
parameters . 

E.   PARSER 

The  parser  is  a  table  driven  automaton  and  is  modelled 
after  the  ALC-OL-!^i  [71.  Tne  LALH(^-^)  parser  generator  [el 
produced  the  required  parse  tables  and  the  vocabulary  table, 
VOCAB.  The  parser  operaf^s  oy  receiving  tokens  from  the 
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FUNCTION    YZ(F,A:REAL) :HEAL; 


^;ero^7 
Address 

746BE 

746EE 

746  FH 

747  0E 

747 IH 
7471  H 

7473H 
7474H 
747  5  H 
747eE 
'7477E 
747PH 
74''QE 
7  47  AH 
747EH 
74^7  0  H 
747rE 
74'^  EH 
747FE 


SyTbol 

Table 


2^H 

0es 

6  en 

74E 

?5H 

35  H 

'^2H 

59E 

5AH 

32E 

CAH 

74H 

22H 

f^eH 

4eH 

20H 

'^7E 

een 

IBE 

\        COLLISIO'l 

> 
/         AT CRESS 

\         PREVIOUS    S^TPL 

> 
/         ENTRY    ADDRESS 

EOR^' 

HA  S  H 

PRINTNAhl  LENGTH 

ASCII  CHARACTER  Y 

ASCII  CHARACTER  Z 

NU^^BER  0?  PAEArrTERS 


/ 
\ 
/ 
\ 

i 


> 


SBTIL  AIDRESS  OF 

PARAMETER  LISTING 

PRT  LCCATICiN 

AS  SIGN  EI  Y7 

SAVE  PLOC^  PniNTEF 

LOCATION  IN  PPT 

LABEL  PRECEEriNG 
> 
/     PROCEDURE  COPF 

TYPE  0?  FUNCTION 


SYMBOL  TABLE  FUX'CTIO.N  ENTRY 
FIGURE  22, 


4:9 


POINT"??    TC         / 
PARAMETER    :-^ 
L I S  T I  N  Cr         !      \ 


Syrrbol 

Table 


4CH 

4FH 


e2H 
97H 
74H 


01E 

55H 


?1H 


CG> 


?4H 
00H 


6BH 
2eE 

eeH 


PF.ocsrrp.r   'lc 

SYMEni    TABLE    ENTRY 


\        VMUE    PAP-A^FTFP      X 
> 

/    SYMPGL  TAPLE  ENTRY 


\    V\LUE  PAPA^ETEP   Y' 
/    SYMPCL  TAPLE  EM TRY 


\    PRT  LOCATION 

> 
/    ASSIGNED 


\    PRT'  LOCATION 

> 
/    ASSIGNEE 


PROCEDURE  AND  PARAMETERS  SYMBOL  TAPLE  ENTRY 

EI  CURE  23. 


50 


scanner,   analyzing:   therr  to  determine  if  they  ere  a  part  of 
the  NPS-PASCAL  ^rarrrrar,  then  acceDts  or   rejects   the   token 

according   to   the  grammar.  If  the  token  is  accepted,  one  of 

two  actions  is  taken.  The  parser  ray   stack   the   token   and 

continue  to  request  tokens  in  the  lockahead  stat^,  or  it  may 

recognize  the  right  part  of  a  valid  productioi  and  apply  the 

production   state.  This  results  in  a  stack  reduction.  If  the 

parser  rejects  the   token,   or   deter^i^es   that   the   token 

received   does   not   constitute   a   valid   right  part  of  any 

production  in  the  grarr;mar,  a  syntax  error  iressa^e   will   be 

printed  to  the  console  and  the  HSCOVER  procedure  is  called. 

RTCOVFB  is  a  procedure  that  perrits  cortinued  prograrr 
compilation  in  spite  of  the  detection  of  a  syntax  error.  The 
parser  backs  up  one  state  and  attejpts  to  continue  parsing 
from  that  state.  In  the  event  of  failure,  the  parser 
continues  to  back  up  until  the  end  of  the  currently  rending 
production  is  located.  At  that  point  the  invalid  token  is 
corrpletely  bypasse'i,  and  an  attempt  is  rade  to  parse  the 
following  token.  This  process  continues  until  an  acceptable 
token  is  found. 

The  parse  stacks  in  NPS-PASCAL  consist  of  a  state  stack 
and  eight  auxiliary  stacks.  The  auxiliary  stacks  are 
parallel  to  the  parse  stack  and  are  used  to  store 
information  extracted  from  the  syrrbol  table  needed  durine' 
code  generation.  Tne  stacks  are: 
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BA.SF$LOC  -  stores  the  syrrbol  table  address   of   tne   nurrent 

identifier; 
FOR^'$FIELI  -   store   the   forn^   field   value  of  the  current 

identifier  as  reflected  in  the  syrbcl  table; 
TYP5!$ST/CK  -  stores  the  type  value  of  the  identifier; 
??T$ADDR  -  stores  the  PPT  address  of  the  identifipr; 
LABSL$STACK  -   stores   the   label   value   to   be  used   with 

branching  instructi ors; 
PAR'^^NUM  -  stores  the  number  of  forrral  paraiT:eters  associated 

with  a  procedure  or  function; 
PAR^$N'Ur^$LOC  -  stores  the  sybol  table  address  of  the  list  of 

forral    pararreter    types   associated   with   a 

procedure  or  function; 
2XPRISS$STK  -  stores  the  type  value  of  an   expression. 

F.   CODE  GENERATION 

The  parser  not  only  verifies  tne  syntax  of  the  so^irce 
statements,  but  also  controls  the  fe-eneration  of  the 
intermediate  code  by  associating  semantic  actions  with 
production  rules.  When  a  reduction  takes  place,  the 
SYNTHESIZE  procedure  (in  SYNTH2.SRC)  is  called  with  the 
production  number  as  a  parameter.  The  SYNTHESIZE  procedure 
contains  an  extensive  case  statement  keyed  by  the  production 
number  to  perform  the  appropriate  semantic  acticrs.  The 
syntax  of  the  lan^ua^e  and  the  semantic  actions  for  each 
reduction  are  contained  within  the  listing  of  the  module 
SYNTE2.SRC. 
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^uniarrentdl  to  unders teniirg  the  cor-piler  is  a  detailed 
knowledge  of  the  ■i?S-PASCAL  data  structures,  the  ps'=udo 
operators,  the  use  of  procedures  a-^d  furr^tic^s,  anc.  the 
ccmrunica t ion  paths  between  th°  compiler  and  the  user.  The 
pseudo  operators  are  described  in  detail  in  Hef.  2.  These 
other  elements  are  described  below  to  assist  in 
understanding  the  ivPS-PASCAL  corpiler  constructs  and  to 
explain  tne  lo^ic  used  to  generate  the  inter'^^diat  e  code. 
That  code  will  later  De  used  to  venerate  tne  tar5et  racnine 
code . 

!•   ^t.ora£e  S2ace  Allocat,iori 

The  amount  of  stcrape  alienated  to  a  variable  is  a 
function  of  the  type  of  the  iter.  For  ^ach  prcsri^  variable 
requiring  storage  space,  tne  compiler  specifies  the  number 
of  bytes  to  be  alloted,  and  keeps  a  runninf^  total  of  the 
number  of  bytes  assigned.  The  total  count  is  then  passed  to 
the  code  generator  to  establish  the  size  of  th'^  Frogram 
Reference  Table  (PET)  .  ■ 

a .  Byt  e  Data 

Byte  data  iters  are  stored  in  a  single  byte  in 
rremory.  Byte  data  items  can  represent  characters,  numbers, 
or  boolean  variables. 

b.  Integer  lata 

Integers  are  represented  by  two  byte  locations 
in  memory  with  the  high  order  byte  pr^-cedin^  tne  low  order 
byte  of  the  inte^^er  number.  The  storage  design  imitates  the 
function   of  the  ei660A  microprocessor  [8]  in  its  movenent  of 
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data  frorr  rerory  or  froir  the  stack  into  the  processors 
double  byte  registers  during  prcpTam  execution.  Integers  are 
represented  in  two's  conplerent  f crrr  ,  with  the  hish  order 
bit  acting  as  the  sign  bit.  A  zero  high  order  bit  indicates 
a  positive  integer,  while  a  high  order  hit  of  ore  indicate  a 
negative  number. 

c.   Real  Data 

Real  nurrbers  are  represented  in  binary  coded 
decirral  ("?CI)  format.  Each  real  number  is  representee  by 
fourteen  decimal  digits  and  is  stored  in  eight  consecutive 
bytes.  When  loading  a  "BCD  value  onto  the  execution  stack, 
the  byte  located  at  the  lowest  memory  address  contains  the 
sign  of  the  number  along  with  the  si^n  and  magnitude  of  the 
exponent.  Succeding  bytes  represent  two  decimal  digits  and 
are  ordered  backwards,  such  that  the  byte  closest  tc  tne 
exponent  byte  contains  the  last  two  decimal  digits  of  tne 
number,  while  the  last  byte  contains  the  left-ncst  two 
decimal  digits  of  the  nunoer.  The  format  of  a  3Cr  number  in 
memory  is  displayed  in  Fig.  24. 

'^he  exponent  byte  in  a  BCD  number  uses  the  high 
order  bit  to  indicate  the  sign  of  the  number:  a  one 
indicates  positive,  a  zero  negative.  The  remaining  seven 
bits  represent  the  exponent  and  its  sign.  The  exponent  is 
biased  by  64  so  that  values  greater  than  64  (i"  seven  bits) 
depict  a  positive  exponent  and  values  less  than  64  depict  a 
negative  exponent;  the  exponent  is  the  difference  between  64 
and  the  actual  value.  The  bias  allows  exponent  values 
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ran?in^  frorr  -64  to  +63.  The  3CC  rurber  always  assurrps   that 
the  decimal  point  is  normalized  before  tne  first  di^it. 

d.   Strins  Lata 

Strings   are  stored  sequentially.  The  first  byte 

of  the   string   stores   the   string*   ler.f^th,   thus   limiting 

strings   to  a  length  of  255  bytes.  Imimeliately  follcwirg  the 

length  byte  are  the  ASCII  characters  of  the  string. 

2.   AlithniSllc  operations 

a.  Logical  Operations 

Logical,  or  boolean,  operations  act  on  byte 
values  of  zero  and.  one  only.  A.  zero  value  indicates  a  false 
condition,  while  a  non-zero  valu^  indir-ates  true.  Logical 
ODerations  requirinP!  comparison  between  two  elements  returns 
the  value  of  the  operation  in  the  true  or  false  form. 

b.  Integers 

Arithmetic  operations  with  integers  are 
performed  by  taking  the  top  two  values  from  the  execution 
stack,  and  placing  them  in  tne  double  byte  registers  in  the 
8(^8^  microprocessor,  and  then  carrying  out  the  requested 
operation  using  the  microprocessors  native  functions. 
Integer  arithmetic  includes  addition,  subtraction, 
multiplication,  division  with  truncation,  modulo  division, 
logical  comparisons,  and  transformations  to  r°al  f?cr) 
format.  All  commutation  results,  except  for  real 
transformations,  are  returned  to  the  execution  stack  in  the 
two  byte  integer  format.  Relational  operations  on  two 
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integer   values  are  carried  out  in  accordance  with  the  rules 
for  irteger  arithnetic. 
c.   Reals 

Peal  arithrretic  operations  are  r.ore  corr.plex  than 
those  with  integers  due  to  the  nature  of  the  ?Cr  fornat.  The 
process  is  similar  to  that  of  intp,5:er5  in  that  pairs  of  real 
number  bytes  are  moved  to  the  8080  registers.  The  required 
operation  is  performed,  and  the  resulting  real  value  is 
returned  to  the  execution  stac'rc  in  the  eight  tyte  PCI 
format.  Peal  values  also  follow  the  rules  of  integer 
arithmetic  when  involved  in  relational  operations. 

3.   S^t  Operations 

The  set  operations  of  set  union,  set  difference,  set 
intersection,  set  equality  and  inequality,  set  inr^lusion  and 
set  membership  are  not  implemented  in  this  version  of 
NPS-PASCAL. 

!•   String  QEerations 

The  relational  operators  of  equality  ard  inequality 
have  been  implemented  for  strings.  The  remainder  of  the 
relational  operators  denote  lexiccgraph  i'"  ordering  according 
to  the  character  set  oraerin^,  and  are  not  implemented  in 
this  version  of  NFS-PASCAL. 

^«   E££L£§1^I§1  §.IL^  tUHOtions 

Procedures  and  functions,  also  called  subroutines, 
give  NPS-PASCM  the  ability  to  display  prograrr  segments  as 
explicit  subprograms.  The  only  differ'=nce  between  a 
procedure   and   a   function   is   that  the  function  returns  a 
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val^Je  to  the  top  of  the  execution  stack  after  it  is  invoked; 
a  procedure  does   not.   This   rreans   that   a   function   <"all 

actually  represents  an  arithmetic  exriression.  Procedure 
calls,  however,  s^and  alone  as  proerari  statements.  .*n 
analysis  of  the  following  procedure  and  function 
irrple mentation  by  Blanton  and  f^ioore  [9]  conclud'^d  that  the 
current  design  is  inadequate.  Insufficient  infrrmation  is 
passed  to  allow  parameter  mapping-  from  the  execution  stack 
to  the  PHT. 

a.   Invocation 

Procedures  and  functions  can  be  i'^voK-ed  with 
zero  or  mors  actual  -narameters.  The  list  of  actual 
parameters  is  substituted  into  th«  corresponding  list  of 
formal  parameters  declared  in  the  procedure  or  function 
definition.  If  the  formal  parameter  is  a  variable  parameter, 
the  actual  parameter  has  to  be  a  variable  also.  Should  the 
formal  parameter  be  a  value  parameter,  then  the  actual 
parameter  can  be  an  expression,  provided  that  the  errression 
type  matches  the  formal  parameter  type.  For  procedure  and 
function  formal  parameters,  tne  actual  parameter  must  be  a 
procedure  or  function  identifier.  Actual  parameter  types  are 
checked  against  formal  parameter  types  stored  in  the  symbol 
table  during  program  compilation.  The  method  of  passing 
actual  parameters'  values  is  via  the  execution  stack.  The 
procedure  or  function's  memory  location  is  generated  in  the 
form  PRO  <label>,  where  PRO  is  a  mnemonic  reanin,^;  "branch  to 
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subroutine",  and  <label>  is  the  label  value  stored  in  the 
subroutine's  symbol  table  entry. 

b.  Storage  Allocation 

All  parar^eters  and  variables  declared  within  a 
procedure  or  function  are  assigned  a  location  in  tne  PET. 
These  locations  immediately  follow  the  P^T  location  of  the 
procedure  or  function  identifier.  Upon  recognition  of  a 
coPTDlete  subroutine,  another  PPT  location  is  allocated.  This 
location  is  called  the  Save   Block  Pointer   (ST5?)   for   the 

subroutine.  The  FPT  locations  extending  from  the 
subroutines 's  identifier  location  through  the  SBPr  make  up  a 
Pocedure  Control  Block  fPCB).  The  effect  is  that  the  PC?,  is 
a  contiguous  set  of  PPT  cells,  as  seen  in  t^ie"  £5.  The  PC3 
construct  is  based  on  the  one  used  in  ALGOL-S  [1^^,  and  its 
usefulness  is  in  recursive  calls  to  a  procedure  or  function. 

c.  Parameter  "tapping  > 

NPS-PASCAL  uses  a  scheTe  similar  to  ALGCL-F  \1?A 
in  mapping  the  actual  parameters  of  a  procedure  or  function 
into  its  formal  parameters.  After  recognition  of  a 
subroutine  identifier,  the  actual  parameters  that  are 
identifiers  have  their  intermediate  code  generated  in  the 
form  of  a  "PAEM"  or  "PAPMV"  mnemonic  followed  by  the  PPT 
location  of  the  actual  parameter.  'T'hese  mnemonics  load  the 
execution  stack  with  the  values  of  tne  actual  parameters.  If 
the  actual  parameter  is  an  expression,  the  expression  result 
will  be  loaded  automatically  on  top  of  the  execution  stack. 
Consequently,  the  compiler  generates  the  mnemonic  "PAR^X" 
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after  recognizing  a  complete  expression  that  is  acting  as   a 
value   parameter.   PARMX   will  not  require  any  action  ty  the 

code  generator. 

With  the  actual  parameter  in  place,  program 
control  will  hranch  to  the  procedure  or  function  itself.  The 
compiler  generates  code  to  place  three  items  on  top  of  the 
execution  stack.  The  first  item  is  the  number  of  formal 
parameters  (f)  in  the  subroutine,  the  second  is  the  PRT 
location  of  the  subroutine's  identifier  (II'LOC),  and  the 
third  is  the  SBP  address  in  the  PRT  (SBPLOC)  of  the 
subroutine.  The  compiler  then  generates  the  SAVP  operator, 
followed  by  the  total  byte  count  of  PRT  storage  (t)  assigned 
for  the  subroutine's  identifier  and  all  formal  parameters. 
This  is  followed  by  a  listing  of  byte  storage  requjired  by 
each  formal  parameter  (Pi)  in  the  PRT  in  descending  order. 
The  execution  of  the  SAVP  operator  is  expected  to  cause  the 
following  actions  to  be  generated, by  the  code  generator. 
(1)  The  SBP  location  is  examined 

(a)  if  SEP  =  0  then  SBP  :=  1,  else 

(b)  SBP  >  0  and  segment  length  (SBPLOC  -  IDLOC  +  2) 
is  obtained  from  the  top  of  available  memory, 
for  example,  at  address  x.  The  PCB  is  then 
copied  from  the  PRT  to  the  memory  segment  at  x. 
The  contents  of  the  segment  at  x  is  then  called 
the  Save  Block  (SB).  SBP  :=  x. 
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(2)  The  top  two  elerents   of   the   execution   stec^  are 

deleted;   tne   next   elenient   (f)   is  copied  dnd 
deleted  fror  tne  stack;  Pi  =  p(l). 

(3)  If  f  =  0  then  halt.  All  actual  parameters  have   heer. 

copied   into   the   forrral  parareter  locatiors  in 
the  PCE. 

(4)  PET  location  (IDLOC  +  t  -  p(i))  :=  top  of   execution 

stacK;   delete   the  top  elenent  of  the  execution 
stacic;  t  :=  t  -  p(i);  p(i)  :  =  p(i)  +  1. 

(5)  f  :=  f  -  i;  go  to  step  (3). 

This  process  ensures  that  recursively  calling-  a  subroutine 
will  not  destroy  the  local  variables  and  parameters  of  any 
preceding  calls. 

d.   Function  Return  Value 

Coupled  with  the  SAVP  operator  is  the  UNS? 
(unsave)  operator  that  reverses  the  actions  of  SA'^'P.  Two 
parameters  are  required  at  the  top  of  the  stack,  the  SEP 
locations  in  the  PPT  (SBPLOC),  and  the  PPT  location  of  the 
subroutine  identifier  (IDLOC).  The  actions,  then,  of  UNSP 
are  . 

(1)  The  value  stored  at  IILOC  is  copied  to  the  ten 
of  the  stack  (this  returns  a  value  for  the 
function  calls;  this  value  will  he  deleted  for 
procedure  calls )  . 

(2)  If  the  value  of  SBPLOC  is  greater  than  1  then 
the  S3  at  location  SBPLOC  in  the  free  T-erory 
area  is  cooied  hack  to  the  PCP  and  the  memory  is 
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freed.  If  SBP  =  1  then  SPP  :=   0.   Conseouent ly, 
the   UNSP  operator  returns  a  value  from  function 

calls,  and  restores  the  PC3   in   the   event   of 

recur5iv'=   calls.  Tipure  26  shews  the  a^^tions  of 

the  SAVP  and  UNSP  operators  on  the  PRT  and   the 

execution  staciJ. 

e.  Forward  Declared  Procedures  and  'P'unctions 

To  permit  tne  invocation  of  a  procedure  or 
function  prior  to  its  definition  NPS-PASC^L  utilizes  a 
forward  refer'=nce.  Th°  forward  reference  consists  of  the 
procedure  (function)  head,  followed  by  the  word  FOPWA.RD. 
When  the  procedure  ^function)  is  defined  later  in  the 
proe^rarr,  the  parameters  are  not  repeated.  "PCHWAP.D  is  not  a 
reserved  word  in  NPS-PA5CAL.  It  is  instead  referred  to  as  a 
directive.  Directives  are  identifiers  in  NPS-PASCAL,  that 
can  only  occur  inmediately  after  a  procedure  cr  function 
heading.  Directives  are  contained  in  the  BIJILT$IN  $T3L. 

f.  Standard  Procedures  and  Functions 

The  built-in  procedures  ^nd  functions  that 
currently  exist  in  N'PS-FASCAL  corres^cna  to  the  standard 
procedures  and  functions  specified  in  STANDARD  PASCAL.  Their 
operation,  however,  is  considerably  different  from  user 
defined  procedures  and  functions.  The  compiler  first 
generates  code  for  any  subroutine  a'^tual  Darameters .  A. 
mnemonic  for  the  built-in  procedure  or  function  is  then 
generated  which  tells  the  interpreter /translator  that  it 
must   remove  the  parameters  fom  the  execution  stack,  perform 
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the  requested  oreration,  and  return  the  result  to  the  stack. 
The  standard  proceaures  for  input  and  output  (^ead,  Readln, 
Write,  and  'Ariteln)  will  not  require  special  action  to  he 
taken  by  the  interpreter/translator.  Th°  reuiainin^  standard 
procedures  dealing  with  files  and  pointer  variables  ^|er,erate 

mnemonics     that    will    require    action    ''oy  the 

interpreter/translator. 

Input  and  output  (I/O)  can  be  handled  in  two  waj'-s : 
via  console  and  via  disk.  Console  I/O  refers  to  the  device 
the  NPS-PASCAL  user  is  utilizing  to  provid=>  commands  tc  the 
system  —  usually  a  CRT  terminal  or  teletype,  risk  I/C 
refers  to  utilizing  auxiliary  files  on  the  dissc  for  data 
manipulation. 

Input  from  consle  I/O  is  achieved  through  RFAD  or 
READLN  statements.  Console  output  is  accomplished  by  the 
WPITE  ard  WRITELN  statements.  Input  to  the  console  is 
accomplished  by  an.  operatin,?  system  routine  that  reads  one 
full  console  line  into  an  input  buffer.  Tne  code  generator 
generates  code  to  examine  the  buffer  and  convert  ASCII 
characters  contained  within  the  buffer  into  appropriate 
NPS-PASCAL  internal  integer,  real  or  string  format.  The 
input  value  is  associated  wfith  the  arpropriate  read 
statement  variable  parameter  and  then  stored  in  the  rnppiory 
location  allocated  for  that  variabl'=.  A  write  statement 
takes  the  internal  representations  of  integer,  decimal,  or 
byte   values   and   converts   tnem   to   their  ASCII  character 
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forrat.  These  values  are  tnen  passed  to  an  operating-  systerr 
print  routine  for  console  output.  Constants  ana  string 
variables  are  stored  as  ASCII  strir<?s  in  the  interrediate 
code  and  the  interpreter/translator  will  £:;enerate  code  to 
send  ther  character  "by  character  to  tne  systerr  print 
routine. 

risk  I/O  is  achieved  through  the  same  read  and  write 
stateR^ents  utilized  for  console  I/O.  However,  to  read  data 
frorr  a  disk  file  requires  that  tne  file  identifier  be 
specified  as  the  first  para'^eter  in  a  read  statement's  list 
of  actual  parar:eters.  The  file  identifier  has  to  oe 
specified  in  the  same  manner  for  disk  write  statements  as 
well.  The  file  identifiers  used  in  read  and  write  statements 
Fiust  "be  declared  in  a  variable  declaration  part  of  a  program 
"block,  or  as  a  program  parameter  in  the  program  declaration 
(called  an  external  file).  The  file  identifier  has  a 
specific  ^?.T  entry  assigned  'oy  tne  compiler,  kt  program 
execution,  space  will  have  to  be  allocated  on  the  KPS-PASCAL 
stack  for  the  File  Control  Block  (FC3)  information  necessary 
to  interface  file  operations  with  the  operating  system. 
Additionally,  space  should  be  provided  for  a  128  byte  I/O 
buffer  for  every  declared  file. 

Z-   ^PS-PASCAL  Pseudc  Operators 

A  complete  description  of  each  of  the  NFS-P/FCAI 
pseudo  operators  is  presented  i^  Pef.  2. 
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Ill'  IIQ.111-^  ILZllllllL  LIL   SCEBSCTzr 

As  noted  in  Ref.  2,  the  BUILT^  IN  $TP.L  nust  be  located  at 
nerrory  location  21^6K  in  the  executable  rrodule,  since  the 
collision  field,  and.  previous  entry  addresses  are  calculated 
and  entpred  by  hand.  Care  rust  be  taker  during  the  LINK  and 
LOCATE  pro^rans  to  ensure  that  the  5UILT$IN3TIL  is  located 
properly.  Since  the  LINK  pro<^rarr  adds  object  rrodules 
together  linearly,  it  is  necessary  to  specify  T.^LLES  .OPJ  as 
the  first  rrodule  in  the  command  line  to  tne  LINK  prograr. 
While  organizing  the  LINKed  together  rrodules  and  adjusting 
the  address  into  absolute  code,  the  LOCATE  prograrr  uses  a 
default  order  of  COLE,  STACi,  LATA^  ^^EMORI.  Constants  in  the 
PL^^-6'^  source  prograr  (distinguished  from  variables  by  the 
LATA  directive),  however,  are  allocated  merrory  first,  before 
any  executable  code.  Eorcing  the  me.n-ory  address  assignments 
to  start  at  01?3n  with  the  directive  fCOIE  leCE)  to  the 
LOCATE  program  places  BUILT^I.N  $T3L  at  12oH,  so  a  three  byte 
dummy  field  was  added  right  before  th=  EUILT$IN^?EL 
declaration.  The  first  three  bytes  of  the  final  C?/y. 
executable  file  (1C0E,  101E  and  1?2F^  are  used  to  store  a 
jumn  instruction  which  points  to  the  co'"piler  entry  point. 

The  two  previous  theses  used  an  SiZSO  sim.ulatcr  wnich  ran 
on  the  12^  Z>6d  and  zeroed  me'^ory  prior  to  loading  the 
compiler.  !^any  of  the  variables  were  not  initialized, 
instead,  relying  on  a  zeroed  memory  location  for  their 
value.  PL/M-80  includes  two  directives,  INITIAL  and  LATA, 
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which  are  used  to  set  the  initial  value  of  variahles  and 
constants,  respectively. 

An  additional  difference  between  PL/K  and  PL/K-82"  is 
that  the  latter  allows  an  implicit  dimension  sDecifier.  Ihis 
allows  the  table  declarations  in  TABLES. SHC  and  other  long 
declarations  to  be  made  without  knowir,^  or  counting  the 
exact  length  of  the  data  string.  The  irplicit  dirension 
specifier  is  invoked  by  entering  an  asterisk  instead  of  a 
decirral  constant,  i.e.  {''•)    instead  of  (43). 

Due  to  a  deficiency  in  the  grammar  and  its  assciated 
tables,  a  record  structure  was  not  recognized  until  the  t'JC 
statement  was  parsed.  It  was  then  too  late  to  initialize  the 
variables  used  to  analyze  each  record  declaration.  As  an 
interim  fix,  the  code  to  handle  a  record  declaration  had 
been  written  into  the  scanner  portion  of  ^he  ^^orrpiler. 
Contrary  to  the  structure  of  the  compiler,  when  a  rerord 
declaration  was  recognized  by  the  token  nurber,  the  record 
initializing  code  was  executed.  Correcting  this  probler-  was 
the  subject  of  a  project  undertaken  hy  Anderson  and  ^^yers 
[10]  during  a  course  in  compiler  theory  at  the  Naval 
Postgraduate  School.  As  a  result  of  their  work,  this  code 
was  removed  from  the  scanner,  and  placed  in  the  production 
case  statement  where  it  belongs.  The  grammar  was  corrected, 
the  parse  tables  regenerated,  and  changes  to  the  existing 
tables  were  made  by  comparing  the  listings  and  typing 
changes  by  hand.  In  the  SYNT"2.S?.C  module,  production  55  was 
changed  from 
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<RECOP.D  TYPZ>  ::=  RECORD  <?IELC  LIST>  EMD 


to 


<RFCCRr  TYPE>  ::=  <RECCRL>  <FIELr  LIST>  E^JI 
and  production  56  wes  added  to  read 

<PECOPD>       ::=   RECORD. 
A  record  is  now  reco,?nized  when  the  token  RECORD  is  parsed, 
and  the  initialization  of  variables  takes   place  correctly. 
All   the   rerainini?   productions  were  renuTber-^d  to  properly 
reflect  the  parse  tables. 

The  user  assistance  program  SYKB0LTA3LT  provided  oy  the 
last  thesis  effort  failed  in  attempting  to  print  the  symbol 
table  for  nearly  every  test  program  tried.  Considerable 
effort  was  expended  during  the  current  effort  to  debug, 
rrodify  and  upgrade  this  pro^ran  to  a  useful  tool.  Code  was 
added  to  determine  the  actual  location  in  memory  of  the 
symbol  table  during  the  corpilation,  and  the  symbol  table  is 
rroved  to  that  address  for  processing.  The  S  Yr^OLTABLE 
proe-ram  was  eventually  abandoned  for  a  number  of  reasons. 
First,  it  was  attemptins"  to  read  sequentially  entries  in  the 
symbol  table  which  were  designed  to  be  accessed  via  the  hash 
table.  All  too  often,  the  program  crashed  because  it  was  not 
able  to  locate  the  beginning  of  the  next  entry,  f^ore 
frequently,  though,  the  entry  in  the  symbol  table  was 
incorrect,  causing  the  SYMBOLTABIE  prog'^am  to  use  incorrect 
pointers,  lengths,  codes,  etc.  The  SYNPOLTASLF  program  was 
replaced  by  a  much  simpler,  but  much  more  useful  program, 
called  SY!^Du^'P,  which  is  described  in  th°  next  paragraph. 
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The  CP/"^  utility  DU;-"F  was  modified  to  prir.t  tne  contents 
of   a   file  as  a  single  column  of  hex  -character  T^airs,  ^ach 

representing;  a  byte.  Each  pair  is  preceiei  oy  a  four  di=^it 
hex  address,  which  corresponds  to  that  byte's  address  in  the 
syrrbol  table.  durine*  corpilation.  '^he  address  of  the 
beginning  of  the  symbol  table  is  a  constant  in  the  SYi"^E^'''P 
prosrarr,  and  will  have  to  be  reset  each  ti^.e  to  reflect  the 
n'=w  address  of  the  syrrbol  table  whenever  the  coTpiler  is 
changed.  This  necessitates  reassembling  SY'^EUyP  for  each  new 
version  of  the  compiler,  after  determininf^  the  starting 
address  of  the  symbol  table  from  the  previous  SPTcL  entry 
address  of  the  second  entry.  The  output  from  the  SYI^'LUMP 
pro^^ram  can  be  easily  and  efficiently  s-^anned  ty  hand  to 
determine  the  contents  of  each  entry.  Collision  address  and 
previous  entry  adress  -oairs,  for  instance,  can  usually  be 
recognized  on  sight.  Since  the  pro^^ram  is  not 
data-dependent,  it  cannot  crash  due  to  improper  symbol  table 
entries.  \  description  of  the  changes  to  the  C?/^.  utility 
DUf^P.ASr"  is  provided  in  Appendix  C. 

Examinins-  tne  symbol  tables  from  various  test  pros-rams 
showed  that  the  address  of  the  parent  type  of  simple 
variable  declarations  was  not  be  entered  properly.  In 
production  86, 

<'irENT  VAR  STPINO  ::=  <irE!\  T  IEIER> , 
code  was  added  to  save  the  parent  typ«. 

In  the  ENTR$SUriNTRY  procedure  in  SYMTHl.SRC,  tne 
procedure   SUBR^CASZ  was   being   called   twice  for  the  sare 
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limit  (upper)  of  tne  siitran^e.  Cols  was  addsd  to  modify  the 
second  cell  to  exanine  ine  low°r  lirrit  end  ihus  correctl/ 
determine  the  number  of  entries  in  the  subran^ie. 

In  most  case  statements  throughout  the  compiler,  there 
is  no  ran#;e  checking  done  on  the  variable  used  to  index  into 
a  case  statement.  In  PL/!*^-30,  if  the  inaex  evaluates  to  a 
number  greater  than  the  number  of  case  statements  available, 
the  result  is  undefined.  In  other  cases,  serrlcolons 
representing  no-operation  cases  were  emitted,  causing  the 
wrong  code  to  be  executed  for  a  e-iven  case.  Code  was  added 
tc  direct  the  index  to  the  correct  case. 

In  a  few  instances,  ?l/^-^^  address  variables  (l6-bit) 
were  being  passed  tc  byte  variables  (6-bit )  .  resultin,i?  in  the 
eight  high-nrder  bits  bein^^  truncat°d  and  lost.  Tns 
offending  variable  declarations  w^r^"  corrected. 

When  the  compiler  wes  broken  into  moaules,  there  were  a 
substantial  number  of  variables  d='clared  PUBLIC  and  E'lTZRN'AL 
needlessly.  When  a  verieble  was  used  only  in  the  module  in 
which  it  was  declared,  the  ^UBLIC  declaration  was  deleted.  A 
number  of  subroutines  were  declared  PU3I.IC  in  one  module  and 
not  called,  and  declared  external  and  called  from  only  one 
other  module.  These  subroutines  were  moved  to  the  calling 
module  and  not  declared  PUBLIC  or  EXTERNAL. 

The  displacement  vector  associated  with  each  array 
dimension  was  beins-  calculated  incorrectly  and  it  was  stored 
in  the  same  symbol  table  entry  as  the  subran^re.  The  array 
offset   (for   non-zero-origin   array   dimensions)   was  being 
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calculate!  incorrectly.  Code  was  added  to  terpcrcril;/  stack 
the  array  declarations  and  subsequently  enter  them  into  tne 
symbol  table  correctly.  Code  was  also  added  to  calculate  the 
array  offset  and  tne  displacement  vector  for  earh  dimension. 
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Signed  identifier  constant  entries  in  trie  syi^rol  table 
are  identified  as  such  by  the  YCR!^  value  41H,  but  the  si^n 
is  net  stored  or  applied  to  the  value  of  the  constant. 

Arrays  were  only  examined  for  correct  identification  and 
entry  into  the  symbol  table.  Arrays  on  the  ri^^t  side  cf  the 
assifirnment  statement  are  not  handled  protierly. 

Since  no  interpreter  has  been  written,  f-.ere  is  still  no 
way  to  validate  the  intermediate  code  nroduced.  The  ccrpller 
will  compile  some  small  test  programs  without  crashing,  but 
it  frequently  will  crash  or  go  into  infinite  loops. 

The  code  in  the  modules  SYMPOL.SP.C,  SYVTFl  .SBC  and 
SYNTH2.SP.C  cannot  be  trusted  to  oehave  as  descrioed  i-^  the 
two  previous  thesis  efforts.  Yach  procedure  needs  to  be 
examined  on  a  line-by-lire  basis,  with  a  possible  eye  toward 
rewriting  substantial  portions.  In  many,  many  cases, 
variables  are  ANDed  or  CRed  with  unexplained  he^  con starts. 
The  function  of  tnese  constants  should  be  determired  and  the 
hex  constants  should  be  named  and  documented.  In  many  ether 
instances,  variables  are  shifted  left  or  ri^ht  and  then 
again  ANLed  or  ORed  with  hex  constants.  The  shifting  can  be 
avoided  by  definin?  and  documenting  the  appropriate  mas'^s. 
The  global  ^ata  base  should  be  better  organized,  defined  and 
documented.  Variables  enter  proced^ires  in  unknown  states, 
and  are  used  or  modified  without  rang»  checizing  cr  cLy  sort 
of  validation.  Tne  ranges  on  case  statement  indices  need  to 
be   checked   before   us=,  and  ^ach  case  should  be  a  roj  FN'C; 
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block,  even  if  for  a  nc-cperation  ^ase,  so   that   statements 
elded  will  not  introduce  extra  and  erroneous  cases. 
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V.   C£NCLUSICN^ 

\'PS-PASCAL  is  still  a  long  way  fror.  ccmplete 
inplerrpn  ta  tion .  y.ajor  problers  exist  in  the  perse  stack 
structure,  in  semantic  action  sucrcutines  and  in  tne  syrbcl 
table  construction  and  access.  The  groundwork  for  a  viable 
PASCAL  cornpiler  has  been  started,  but  the  ccrnpiler  desii:n 
needs  a  critical  reviev/  ana.   analysis. 

The  operation  of  this  compiler  is  still  d^'perde'^t  or  the 
developnent  of  an  8?B0  interpreter  or  translator  to  validate 
the  pseudo  operators  ^en^rated.  C-^ripletin^  the  NFS-PASCAL 
coFipiler  project  will  require  a  substantial  investnent  of 
stud/  and  tiTp. 
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APPENDIX  A  -  CoTDiler  rrror  I'^es sa^^es 


AD 

m 

A.T 

CV 

EC 

DF 
LT 

EE 
ET 

I A 

IC 


Array  dir.ension  stack  overflow:  Sir.plify  array 
decla  ra  ti  on . 

Array  nest  overflew:  Simplify  declaration. 

Assi^n-^ent  type  error:  Type  of  expressicr  net 
cenpati"ble  with  assignrrent  variatle  tyoe. 

Invalid  expression:  The  variable  types  within 
the  exDressior  are  not  compatible. 

Incorrect  control  variabl^:  The  cortrol  variable 
has  not  beer  declared  or  is  of  type  R"AL. 

rijplicat°  constant  name:  Constant  identifiers 
rrust  be  unique, 

Lisk  error:  Pecorpile. 

luplicate  type  name:  Type  identifiers  rusi^  be 
unique. 

Exponent  size  error: 

Invalid  expression  type:  ""he  types  of  the  variables 
used  in  an  expression  are  incon-^ati  bl  e . 

Invalid  array  index:  Array  index  types  rust  be 
scalar  -  IiX'T'FrrER  or  REAL  types  are  invalid. 

Invalid  constant  variable:  Constant  entry  in  syrbol 
table  i  s  invalid  . 


IE 
I? 

IR 

IS 

IT 

ly 

LS 


Integer  size  error: 

Irrproper  pararneter:  Tne  actual  pararrjeter  type  dops 
not  match  the  formal  parameter  type. 

Invalid  read  variable:  Only  INTEGER,  REAL  or  STRUfS 
values  can    be  read. 

Invalid  subrange  error:  Check  type  and  lirits  of 
declared  subrange. 

Invalid  type  error:  Array  corr-ponent  type 
specification  invalid. 

Variant  star^k  overflow:  Reduce  tne  number  of 
variant  cases. 

Label  syntax  error:  All  labels  rust  be  integers. 
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NC 

NE 

NP 
NS 

P2 

PN 

HN 
RT 

SO 

TI 

TC 
UL 

UC 

UP 

vo 

¥P 


Incorrect  character: 

Incorrect  actual  para.Tieter:  Tne  actual  pararr;pter 
rust  be  a  variable  ar,d  not  an  e'^pressiOT^. 

Mo  production:  Syntax  error  in  -source  line. 

Invalid  set  ele.rent:  Set  elerents  rast  be  scalar. 

Parameter  error:  Tnis  parar,eter  forrrat  can  only  be 
used  in  a  write  staterrent. 

Incorrect  number  of  parameters:  The  total  number 
of  actual  paraneters  fails  to  ecual  the  total 
number  of  formal  parameters. 

Record  field  stack  overflow:  Reduce  the  number  of 
fields  specified. 

V-RITSiSTy'T  parameter  error:  The  parameter  has  to 
be  of  type  PEAL. 

State  stack  overflow:  simplify  prorram. 

Invalid  type  identifier:  Type  identifier  not 
previously  declared. 

Symbol  table  overflow:  Reduce  number  of  declarations 

Undefinea  label  error:  Label  net  declared  in 
label  statement . 

Invalid  unary  operator:  Variable  tyoe  rust  be 
INTEGER,  RE/I  or  subrang,?  of  INTEGER. 

Undeclared  "orocedure:  Procedure  identifier  not 
previously  declarea. 

Variable  aeclaration  stack  overflow:  Peaure 
the  number  of  variables  declared  per  line. 

Variable  stack  overflow:  Reduce  the  length  of 
variable  printnames. 

WRITE$ST^'T  parameter  error:  The  length  parameter 
has  to  be  of  type  inte^s^i"* 
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A^PEMDIX  I  -  Interrr.eclidt  e  Code  r^COTE  Fro^rerr 

The  last  thesis  effort  includel  a  propram  'railed  PECOD^ 
which  will  read  the  interreaiate  code  file  ana  convert  tne 
hex  pseudo  codes  into  tne  corresponding  rneironii^s.  The 
paraneters  associated  with  certain  operators,  such  as 
labels,  branchp's  and  load  i'^rediat'^  values  are  nrinted  also. 
Intee-er  and  real  nurrhers  are  converted  to  decirr.al  forrat. 
StrirtS  are  displayed  as  ASCII  characters. 

To  use  the  LECOLTi;  pro^ran,  conpile  a  PiSCAI  prc^raJ' 
orritting  the  ^C  corpiler  to^-sle: 

A>?ASCAL  TEST. PAS 

When  a  successful  coronation  is  corplete,   run   the   DECODE 
prop-rar  on  the  interrediate  file: 

A>DFCOBE  TEST.PIN 

The  contents  of  the  int  err:ediat  e  file  will  oe  printed  on  the 
console. 
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»?FF;^ri:(  C  -  SY^D^'MP  S/rbol  Taole  ri  splay  Fro^rer 

A  syrbol  table  displaying  proi^rarr:  was  develcoed  to  aid 
in  exarrinin^  the  syrrbol  table  and  ipbug--^in^  the  ccrrpiler.  It 
is  based  on  the  CP/"^  LU^?  utility,  and  uses  the  starting 
address  of  the  syrrool  table  in  rerory. 

To  preDare  the  sy^irUI^P  progran"!,  the  user  "-list  first  use 
the  standard  C^/l-.  utility  EITiP  to  dur^n  the  syrrbol  table 
file.  In  this  durp,  the  user  aeterrlnes  the  startinp"  address 
of  the  symbol  teble  by  examining  the  previous  entry  address 
of  the  second  entry.  This  address  will  rhange  whenever  the 
compiler  is  altered,  since  the  symbol  table  is  assie^ed  to 
the  first  available  merory  address  after  the  conpiler. 
h'odify  the  C?/^'  utility  Eui^P  as  follows:  after  tie  lahel 
OPyfJOK,  change  the  arsunent  of  the  LXI  a  frcr  0  to  the 
starting  address  of  the  symbol  table!  after  the  label  GL^^^P, 
delete  the  JNZ  NCNUi'^  instruction.  F.enare,  ^easserble  and 
reload  the  pro^rarr.  The  SYf-'.DuN?  program  is  now  ready  to  be 
used  on  the  .SY"^  file  produced  by  the  compiler: 

A>SY^DUKP  PPOG^A^.SYK 

SYMDUKP  produces  a  vertical  listing  of  the  syrbcl  table, 
one  byte  per  linej  each  byte  is  oreceded  by  its  address  in 
the  symbol  table. 
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APPEK'nx  D  -  Ccnpil  =  r  Source  Cole  Structure 

A.   ^'CDULAHIZATIC.M 

The  PL/r^  version  of  the  NFS-PASCAL  corr.piler  contained 
over  -iTeC*  lines  of  source  code.  When  the  compiler  was 
transferred  to  the  Intel  Microprocessor  Levelopn-ient  System 
(^"1)5)  and  the  ISIS-II  opera tinr  system,  it  was  broken  up 
into  manageable  modules  according  to  function.  Each  module 
now  has  fewer  than  10c0  lines  of  code,  so  editing*  is 
facilitated,  and  corrections  to  the  compiler  can  he 
implemented  much  more  rapidly.  The  two  la'^gest  modules  take 
less  than  15  minutes  each  to  recompile.  A  recompiled  module 
can  then  be  linked  with  the  remaining  modules.  Maintaining 
the  compiler  as  a  «^in^le,  large  file  wculd  hav=  caused 
excessively  long  edit  sessions,  and  a  recompile  time  of  over 
an  hour. 

There  are  seven  modules,  each  in  a  separate  ISIS-II 
format  file.  SYSETS.SKC  contains  the  interface  to  the  C?/"^ 
operating  system,  including  the  disk  and  console 
input-output  procedures,  and  the  SFTCHA?  proceiure.  SCAM.SFC 
contains  the  input  scanner.  PAP.SFP.SHC  contains  the  parser 
and  its  supporting  prcceiures,  and  -^ost  of  th=  global 
variables.  TAELSS.5PC  contains  the  built-in  symbol  table  and 
the  parse  tables.  SY^.'BOL.SRC  consists  of  procedures  which 
manipulate  the  symbol  table,  either  writing  into  or  reading 
fro""  individual  entries.  SYNTHl  .SEC  certains  the  code 
synthesizer,  procedures  which  use  the  parse  stacks  a^^d  which 
generate   the  intermediate  code.  SYNTH?. 5PC  consists  sol^^ly 
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cf  the  production  C5s?  statement.  Source  listings  cf  the 
jiodules  are  provided  following  the  appendices. 

f^odularizing  tne  corpiler  introduced  the  Pl/f^-tZ 
compiler  directives  PUBLIC  and  EXTERNAL.  Any  variahle, 
function  or  procedure  which  is  declared  in  on?  module,  and 
referenced  in  another,  must  he  declared  PUBLIC  in  the  first, 
and  EXTEPN'AL  in  the  second.  Tuncticns  and  procedures  which 
have  are:urrents  must  have  those  arguments  in  hoth 
ieclar(=  tions ,  also. 

The  XPEE  switch  of  the  PL/N'-fC  compiler  causes  a 
cross-reference  to  "be  appended  to  the  source  listin^;.  The 
cross-reference  contains  each  source  prcgrar  identifier 
(literal,  constant,  variable,  function  or  procedure)  which 
occurs  in  the  program,  alon^  with  the  line  nurher  cf  its 
defining  occurrence,  the  line  numbers  of  any  references  to 
it,  and  whether  it  is  declared  PUBLIC  or  EXTIPNAL.  This 
cross  reference  is  a  very  useful  tool  for  locating 
identifiers . 

The  IXPEF  switch  of  the  PL/M-e0  compiler  causes  a 
temporary  file  with  an  .1X1  extension  to  be  created,  which 
contains  information  about  each  PUBLIC  and  EXTERNAL 
declaration  in  the  source  program.  These  .1X1  files,  one  for 
each  source  module,  are  later  collected  and  consolidated  "dv 
the  IXPEE  program,  which  produces  an  inter-module  cross 
reference  listing.  This  listing  contains  all  PUBLIC  and 
EXTERNAL  identifiers,  and  names  the  module  in  which  tne 
identifier   was  declared  PUBLIC,  and  lists  all  modules  which 
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Take  an   FXTYPNA.L  reference  to  it.  This   list   is   also   very 
useful  during  debugging. 

B.   LINKING  AND  LOCATING 

The  compiler,  now  separated  into  modules,  must  "be 
recombined  to  form  a  body  of  erecutable  code.  This  is 
accomplished  by  the  LINK  and  LOCATE  programs.  Th=  LINK 
program  adds  code  from  eacn  of  the  modules  ^r.d  libraries 
referenced  linearly,  to  form  a  single  file.  The  LOCATE 
program  locates  the  code  at  a  particular  address  in  memory 
and  adjusts  all  of  the  relocatable  addresses  into  absolute 
addresses . 


C.   T^AN'SFFH  I^.OV.    ISI3-II  TO  C?/i^ 

Once  the  complete  compiler  has  been  located  and 
adjusted,  it  needs  to  be  trarsfered  from  the  ISI3-II  based 
system  where  the  PL/^^-c0  compiler  resiaes  to  a  CP/-^  based 
system  for  execution.  This  is  done  with  FROf^IoIS  .  COM ,  an 
undocumented  proeram  which  runs  under  C?/y,  and  reads  a  file 
from  an  ISIS-II  format  disk  onto  a  C?/n  format  disk.  The 
compiler  is  then  processed  oj  the  undocumented  prorram 
OBJCPM.COf'',  which  strips  off  any  symbol  table  information, 
adds  a  Jf^f^  instruction  to  the  entry  point  to  the  beginning 
of  the  compiler,  and  creates  the  executable  form  of  tne 
compiler.  The  symbol  table  information  is  placed  in  separate 
files  with  .SYM  and  .LIN  extensions.  These  files  can  be 
deleted  if  empty  or  not  used,  or  they  can  be  saved  for  use 
with  the  debugging  tool  SIC. 
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D.   EXiCUTION  A.NI  I£PUGGI.\u 

When  invoking:  NPS-PASCAL  on  a  PASCAL  progrer.,  the 
corpiler  is  treated  as  any  other  prc^rarr  under  CP/.'':.  Along 
with  the  file  nare  of  the  PASCAL  pro^rarr  to  oe  compiled, 
NPS-PA3CAL  accepts  up  to  four  switc'':es  which  cause  it  to 
print  to  the  console  the  PASCAL  source  code,  the  production 
nurnlDers  ,  the  token  numbers,  and  cause  it  to  suppress 
creation  of  the  in terrriediate  file. 

The  facilities  of  SID,  the  CP/r  Syjibolic  Instruction 
Debugger,  permit  run-tire  debup-gin^  and  ex^^cuticn  tracinr  of 
the  compiler.  To  use  SID,  it  is  necessary  to  include  tne 
PL/i^-P?  compiler  DSEUG  switch  when  compiling  the  module  of 
interest.  The  DZEUG-  switch  causes  the  FLi^-c2  compiler  to 
include  identifier  and  line-number  legations  with  the  file. 
This  information  is  late^^  strinped  out  by  the  OP  JCF^. .  COf-' 
program  into  the  PASCAL. SY^'  and  PASCAL. LIN  files.  "hese 
files  are  loaded  by  SID  and  used  to  reference  and  identify 
absolute  machine  addresses  by  symbolic  expressions. 
Effective  debugging  of  tne  compiler  requires  a  detailed 
knowledge  of  the  operation  of  SID  as  documented  in  the  SID 
Users  ^:anual.  In  transferring  the  -compiler  from  ?L/'X  to 
PL/^'-£3,  it  was  necessary  to  shorten  some  of  the  identifier 
names  to  less  than  Ir  characters  to  meet  the  recuirements  of 
S  ID . 

In  order  to  ascertain  the  proper  operation  of  the 
compiler,  it  is  also  necessary  to  have  a^-curate  knowledge  of 
the  PASCAL  language.  To  ensure   testing   the   coi^piler   with 


pro.=;raTS      of     proper      PASCAL   syntax,    Tost    test    rrc^Tcrs    were 
tak:en   either    fror    the   pascal    >lanual    and    Report    or    the   Pascal 

Validatior    Suite. 

The    entire   compilation,    linlcin^'  and    loadin,?,    transfer    to 

CP/i^,    execution      and      debugging      process      is      docun':ented      bv 

exanole    in   Appendix   E. 
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APPZNTIX   E    -   CO^?IIF,    LIXK   and    LOCA.TF    Instructions 

This  appendix  provides  step-by-st^p  directions  for 
co^pilirifi"  the  H?S-?P^ C^L  con^piler,  linlcin^:  and  locating  the 
object  rodules,  eeneratin;=5  cross-reference  listin^i's, 
transferins-  the  ccnpiler  to  a  C?/r^  based  systerr,  and 
pxecutin,^  and  debu,^gin,s'  the  compiler.  yor  additional 
inforrration  about  the  ISIS-II  systerr,  see  Refs.  11  -  13.  7or 
additional  i  nf  orrca  ti  on  about  operation  under  tne  CP/>. 
system,    see   ?ef,    14. 

The  NPS-PASCAL  source  files  are  corpiled,  linked  and 
located  under  the  ISIS-II  operating  systerr.  First,  corrpile 
each  module  with  the  appropriate  switches  to  the  ?L/^-£^ 
corr.pi  ler : 


PLM60 

:F1 

PLf^Ff"    • 

•n 

PLyee  : 

?1 

?l^£'d 

:F1 

PL^e0  • 

Fl 

PL^e?    : 

^1 

?l^ad    : 

.Fl 

SYS^TS.S^C  XPFF  IXRFF  rATF(29  ^^4  H  Ed)  PF^^^C- 
TAPLFS.SRC  X^Ei  IXRFF  rATF(29  .^'^^R  8Z)  IFPIG 
PAPSFR.5PC  XPFF  IXRFF  CATF(?9  ^' a  R  QO)  ct:3UG 
3CA^i.SRC    XREF    IXRFF    DATF(29    KAR    6'^^    LF^UG 


SYN'PCL.SRC  XREi  IXRFF  r/TF(PP  ^*R  ee 
SYi^iTHl.SPC  XRFF  I  XREF  DAT^(?9  i\AR  3? 
SY\'TH2.SPC    XRFF    IXRFF    DATF(2&    r<A  R    83) 


lEIUC 
PFEUG 
LF^UG 


Due  to  space  limitations  on  a  single  disk,  it  may  oe 
necessary  to  copy  the  .LST  files  tc  another  disk  as  th'=y  are 
generated,  or  to  redirect  tae  .LST  file  to  the  : F0 :  disk 
with  the  ^^IMT  switch; 

-PLKS3  :F1:SYNTH1.S?C  XPFF  IXRFF  CFPUG  PRINT (  :F1 : SY^THl .1ST  ) 
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Mext,    generate    the    int  er-rroduie    -iross-ref  erer.ce  : 
-IXREF    :F1:-.IZI    TI  TIE  ( 'N  PS-PASCAL   V5?.    e.0') 

A.   printed    f^opy    of    the    i  nt  er-rrodul'='   cross    refere^'iCe      is      very 
useful   durir-.j:   debuei,i  ng- . 

A  "sUB^.IT"  file  has  been  created  to  f5cilitate  the 
LI'^King  and  LOCATinf'  process.  If  a  different  LI\"'^in,|;  or 
LCCA-Tin^  comrrand  strinr  is  aesired,  it  can,  of  course,  be 
entered    by   hand.    To    invoice    the    prepared    file; 

-SUBMIT    :yi: PASCAL 

The    file    :  Fl  :?A3CAL  .CST   used    dy    the    SUF^IT    conrrand      contains 
the    folio wino-   corrrand    lines: 


-DFLETF    :F1 :? AS CAL .INK , :7l  :?A5CAL 

-LIMK    :?!  :TA?LIS.U3J,  :?l:S'fSRiS  .0?J,  :  ~1  :SY^3CL  .C3  J  ,5. 

:  Fl : S  TN  THl .OE J , : Fl : 5YNTH2 . OB J ,  : Fl : PAHSF^ . 0? J ,  ; ^1 : TR I KT  .  OR J  ,  S 

:^1:SC4N  .CRJ,  :^0:?Li^e0.LIB    TO    :  Fl  :  PASCAL  .LM  K    f-'AP 

-lOCA.TF    :ri:PA3CAL.LNK    C0D£(1?3'-^)    TAP 


Execution        of        these        lines        will        create        the        files 
:F1:PASCAL,LNK   and    :F1:PA5CAL. 

leavine:  tne  ISIS-II  disk  containin^.^  tne  NFS-PASCAL 
corrT:iler  in  drive  1,  insert  and  boot  a  CP/M  disi^  in  drive  ^. 
The  CP/y  disk  must  contain,  arcai'  other  pr  o.^rcr.s,  tne 
prograr^s  FRny.ls  IS  .  COf- ,  ORJCPM.COr,  and  SID.COr. .  Transfer  the 
NPS-PASC^L    corrpiler    fron-.    the    ISIS-II    aisK    to    the    CP/^'   disk: 
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A>^?.C^'ISIS    PASCAL 

Break  out  the  .?T^'  and  .LIN  fiie<;  and  add  the  J^'P 
instruction    to    locations    1^2'r,    121H,    ana    1?'2H: 

A>CEJC?r^    PASCAL 

This  cori"rand  will  create  three  files  frorr  tne  PASC.'^L  file: 
PASCAL. CCi"^,  the  executable  ccrrpiler,  P/SCAL.SY^'  and 
PASCAL. LIN,  the  files  cortai'^in^^  sy-^dol  table  information 
for  the  run-tirre  aebu^ter  SII.CO^^.  '"'hen  debut-rrinj?  v/ith 
SIC.CO^",  it  is  useful  to  aave  printed  coDies  cf  the  .SY^'  ard 
.COM  files.  The  file  PASCAL  (with  no  extension)  can  be 
ieletei. 

Create  a  PASCAL  source  prcs-ran,  for  exarple  'fiST.PAS, 
with  an  available  text  editor.  Invoke  the  I'JPS-PASC^L 
ccnpiler : 

A^PASCAL    TIST.PAS 

Up  to  four  switches  v^ey  be  provided  to  the  N'PS-PASCAL 
compiler  throuf^h  tne  CF/M  parrrs  field  irreaia  tely  following 
the   file    specification: 

A>PASCAL    TEST. PAS    iA^CL 
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The      switches   r.ay    appear    in   any    order   aid   have    the   follcv;in^ 
f^ea  nin^s  : 

A   -  List    the  source   prceTams    lines. 

^   -  List    the  production    rurrbers. 

C    -  Suppress  creatior    of    the    interr^dia t^    file. 

r   -  List    the  token   nurnbers. 

To    invoke    the    run-tirre   det)U.^-::er    Sir.Cd"^; 


.A>Sir    PASCAL. COi*^    PASCAL. SYi-' 

SIC    ^^PS    1.4 

SYrPOLS 

NEXT      PC      ENI 

e70(^    <?1<Z?    CZ78 

?^I-    PASCAL.  LIM 

#P 

#1    T^ST.PAS    $A3CL 


Then  set  ud  pass  pc^rts,  etc.  and  debu^  as  necessary,  "^or 
detailed  instructions  in  the  use  of  oir.COK. ,  the  run -time 
debugger,    see   Pef.    15, 
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AFPZfJIIX   I    -  risk   lirectories 

The    NFS-PASCAL    co-^-oiler    is    stored    on    two    ISIS-II      format 
dis/cs    with    directories    as    follows. 


The      source      files,      the      coTi^iled    object    fil^s,    e^'^    the 
.1X1    files    are   on    the    first    ais'^c: 


DIPFCT( 

D^Y  0 

F  :E1; 

rDEBUC; 

NAME 

.EXT 

BLKS 

LENGTH 

C^PY 

65 

«^04? 

n^ " 

-±6 

5733 

TRINT 

.CPJ 

2 

70 

SCAH 

.SRC 

83 

10343 

SYSPTS 

.1X1 

e 

549 

SYSRTS 

.OBJ 

43 

53^4 

SYN:RCL 

.SRC 

241 

7727^ 

SCAN 

.O^J 

31 

3fc33 

SYNTF2 

.SRC 

4k7l6 

5e2^7 

PAPSiR 

.OBJ 

56 

6  963 

CON'VPT 

.ST^C 

37 

4577 

SYMT51 

.SRC 

445 

559^6 

SY^l'T'^1 

.CPJ 

164 

2?57i:' 

SYNTH2 

.opj 

135 

16616 

TAPLYS 

.OBJ 

35 

4347 

PASCAL 

.C3D 

<- 

227 

PARS?^. 

.1X1 

15 

1742 

S  YSRTS 

.SRC 

89 

11123 

SYI>iT?l 

.1X1 

17 

193? 

PASCAL 

.LNK 

4£^ 

63356 

PASCAL 

Z8i 

47692 

SYNTH? 

.1X1 

16 

1S57 

S  Yf^'^OL 

.O^J 

67 

136'±4 

PAPSEP 

.SRC 

112 

13996 

TABLES 

.SRC 

79 

9804 

SCAN" 

.1X1 

*i 

261 

TABLES 

.1X1 

u 

136 

SYM.BOL 

.1X1 

11 

1264 

A  i : 


rp-, 
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The    second   disk   ronsists    solely   o 
their    lar^e    size: 


listing   file^,    ciue    to 


riRECT' 

OnY  ^ 

^F  :n 

: LI  ST  IN 

N  A.KE 

.FXT 

3L^S 

LENGTH 

3Y3RTS 

.LST 

£•±5 

37!?71 

SCAN 

.LST 

19? 

24663 

TA3LIS 

.LST 

126 

15794 

PAPSFB 

.LST 

3.36 

3£^02 

SYNTFl 

.LST 

ie23 

128?2e 

SYNT?? 

.LST 

911 

114569 

SYM-ROL 

.LST 

543 

6S277 

ir<CR 

.LST 

99 

12366 

CONVRT 

.LST 

68 

8364 

\TTR 


The    ISIS-II    systen   disK   used    during    the      develcprrent 
the    'J? S -PASCAL    cornuiler    contains    the    followincs;: 


of 


LIPFCTORY    0 
NA^E       .FXT 
TF 


T'n 


TRINT 
COPY 
ASXR^^ 
ATTRI"? 

PINCFJ 
C^LFTF 

riR 

^ORr^AT 

KEXO^J 

iriSK 

LIB 

LINK 

LOCATE 

OBJEFX 

RENAhE 

SUEI^IT 

PLK80 

TYPE 

I7.REF 

PLM8f' 

PLM8'? 

PLMfe 

PLM80 

PLM8?! 

PLM80 


.0?J 


.LIB 
.OV0 
.071 
.0V2 
.0  73 
.^V4 
SYSTEM '.LIB 
LINK   .OVL 


F  :F: 
£LXS 
13c 
2 

55 

35 

3c 

28 

37 

■±6 

56 

49 

35 

50 

82 

114 

108 

27 

21 

38 

172 

5 

82 

45 

152 

232 

6c 

169 

72 

24 

2i? 


ISIS 

LE^'GTE 

16951 

73 

6^42 

4239 

4662 

3599  W 

4506  W 

5733  A 

6999 

6  0^7 

4261 

62c9 

1P"227 

14298 

13505 

3284 

2487 

462P 

21605 

498 

10216 

5615 
18731 
29122 

8156 
23706 

8932 

2846 

3'±91  W 


ATTR 

W 

\\ 

W 

A' 


>J 

■A 

w 

/; 
W 
'^' 
iV 

W 
W 
V*' 

w 
w 

Iv 

Iv 
W 

'A 

v/ 
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SYSRTS .S?C 


$PA^SWIDTH(9i^)    TITLK 'SYSRTS    -    SYSTEM    SUPPrpT    PCUTINZS') 
SYS$ROUTINSS:r'0; 

/-=    CPM    INTYHFACE    ROUT  HIES    -/ 

DECLARE    LIT    LITERALLY    'LITERALLY', 
EXT    LIT    'EXTERNAL', 
CR    LIT    '13', 
LE    LIT    '0AH', 
LCL    LIT     'DECLARE', 

PROG    LIT    'PPCCEDURE', 
TRUE   LIT    '1', 

ADDT?    LIT    'ADDRESS ', 
EALST^   LIT    'e', 
EILSEOE    LIT    'l', 


DCL 


FOREVER    LIT    'WHILE    TRUE'; 


EOLCHAR    LIT    '0DH',    /-    END    OF   SOnpCi    LIME    CHARACTER 


TAB    LIT    '09H', 

SOUPCERECSIZE    LIT    '123',    /-    SIZE    C?   SOURCE   FILE 
PECnT<D    '"' / 

INTRECSIZE    LIT    '128'.    /-    INTERMELIATE    FILE   RECORD 
SIZE    -/ 

COMBUEFSIZE    LIT    '62',    /-    SIZE    OJ    CONSOLE    PU^FEP    -/ 


^OFFILLFR    LIT    'lAH';     /=: 

'I*  1*  '»*  '1*  '.-»  ?,*  3i*  ^*  *r»  'I*  'r  'I*  '**  -1*  'I*  V  1*  'I*  -I*  'i*  I*  'i'*  'I-  *!*  ^*  *»*  '  '  ^  • 

/--*    GLOBAL    VARIABLES    --=V 
DCL 


'  V^*^'  V'  *''  *'■•  ^'  s'*  V"  •**  »*'  ***  *'*  ^"^  »*^  *'*  »'■»*'» 
•  J|%  #1*  J|«  ^|«  ^%  J|-»  #1*  J|«  *|V  «!'«  «,'«  *|«  J|>  ^^•»  «^«  *|«  V)« 


CHap    FOR    LAST    RECORD    ON    FILE 

'.*  '.-  *i-  5,*  5,i  *,c  J,J  >,£  *,i  J,*  ijj  i,c  ^»  ;,i  ;,c  ;,'  ;,c  s^  ;,;  ;,t  ;,c  s^i  j,;  5,i  5,.  *,c  / 


/-    COMPILER    TOC-GLSS    -/ 

LIST$SOURCE    BYTE   EXT, 
NOINTFILE    BYTE    EXT, 

/-    EXT    VARIABLES    -/ 

PRODUCTION    BYTE   EXT, 
TOKEN    BYTE    EXT, 
ACCU>^(32)    BYTE    FXT, 
NEXTCHAR    BYTE    EXT, 
LAST$SBTEL$ID    ADDR    EXT, 

/*    COUNTERS    -/ 
EOFC    LITERALLY    '25',/-    EOF   'V 
PAR^^S    ADDR    PUBLIC    I N  IT  lAL  (5DH  )  , 
ERROR  COUNT    ADDR    PUBLIC    INITIALCf^), 
CODESIZE   ALDR    PUBLIC    INITIALO), 
DECI(4)    ADDR    IN ITIAL (1000 , 100 , le , 1 ) ; 
/* 
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;,'  5,»  ;,S  *,*  *p  ^S  5,C  2^  «p  ^C  5,C  V  -r  V  n*  *»'  ^i'  'i'  'I*  •!'  V  'I*  'r  'i'  'I*  'r  *»•  *»*  -r  'i*  *!*  'r  V  *»*  'r  'i*  *»•  'i*  -i*  *»'  'r  'i*  '»*  ^'  ^r  'I*  '1'  'i'  'i*  'l^  'I'  'i*  *»» 

*  SYSTEM    DEPENDENT    ROUTINES    .^ND   VARIABLES    * 

-  THE    EOLLOWING    ROUTINES    ARE    USED    BY    THE    COMPILER    - 

-  TO    ACCESS    DISK    EILES    AND    THE    CONSOLE.    THESE    - 

*  ROUTINES    ASSUME    TEE    USE    OF    THE    C?/"^    OPERATING    - 

*  SYSTEM.    * 

-  THE   ECB'S    ARE    USED    BY    THE    SYSTEM    TO    MAINTAIN    - 

*  INFORMATION    ON    OPEN    FILES.    THEY    ARE    ONLY    USED    BY    =•= 

-  PROCEDURES    IN    THIS    SECTION.    THE    BUFFERS    AND    POINTERS    ^' 

*  TO    THE   BUFFERS    ARE   USED    BY    THE    REMAINIER    OF    THE    - 

*  PROGRAM,    BUT    THEIR    SIZE    MAYBE    VARIED    TO   SUIT    THE    DISK    - 

*  OPERATING    SYSTEM    BEING    USED.    - 

aJLa  «l«  *.\»  *^«  *t^  *(«  t.*^    i*r  hl«  «i«  tjj  mX^  m.'*   kJ^  &■«  *>«  aJ^  «J«  «*«  >t«  ^*'  ^'  ^''  *>''  «**  •''  %,%^    «*'  «*«  ^'^  •>'«  K*'  ^''  ^'^  ^''  «''  «*'  «V  0#  k'«  «■«  0«  «'«  »'«  •  *'  k*«  «<■•  ^'#  ■>'>  «*^  «>«  «■«  0« 

J?Spii*»i''r»?V5?1<'i'ir'?  VSi!>4''>''.''i'5i*'r'<-ii"'-'>"r  'r'r  -,- ^«  »,»-,• -^  »r -r  i» -o  -,« -it  .,t -r -r -i' V  -r -i- J.J  V -i^ -■»  V -.' W 

*/   DCL 

/*    NOTE:    CP/M    PROVIDES    5CH    AS    FCE   AREA    AND    SiZE    AS    A 
BUFFER    FOR 

PROGRAM    USE    */ 
RFCBADDR   ADDR    I N IT IAL( 5C H) . 

RFC^   BASED   RFCBADDR (33)    BYTE,    /-    SOURCE    FCB    ^/ 
VFCB(?3)    BYTE    /*    INTERMEDIATE    FILE   FCB    -/ 

INITIAL    (0,'    ',  'PIN', 0,0, 0,0)  , 
SFCB(33)    BYTE    /*   SYMBOL    TABLE    FILE    FCB    -/ 

INITIAL  (0,'   ', 'sYM',e,0,e,e) , 

SBLOC    ADDR    INITIAL(80H)  , 

SOURCEBUFF   RASED   SBLOC  ( SOURCERECSIZE  )    BYTE,    /^= 
SCURCS   BUFFER   -/ 

SOURCEPTR    BYTE    INITIAL    (SOURCERECSIZE),    /-   BUFFER 
INDEX   -/ 

DISKOUTEUFF(INTRECSIZE)    BYTE, 

SYMOUTBUFFdNTRECSIZE)    BYTE, 

BUFFPTR    BYTE    IN  ITI  AL(255 )  ,    /-    BUFFER    INDEX    '^V 

SYMBUFFPTR   BYTE    IN  ITI  AL  (255  )  ,    /^-    SBTBL    BUFFER    INDEX 


*/ 


EDOS*/ 


LINEBUFF(CONBUFFSIZF)    BYTE,    /-CONSOLE    OUT    BUFFER    '^Z 

LINEPTR    BY'"E    INITIAL(0),     /-    BUFFER    INDEX    */ 

BDOS    ADDR    PUBLIC    INITIAL(5E),    /-JMP    TO    O/S    ENTRY-/ 

BOOT    ADDR    INITIAL(0H),    /-REBOOT    ENTRY-/ 

LINENO    ADDR,    /'^^    CURRENT    LINE   NUMBER    -/ 

STAPTBDOS    ADDR    PUBLIC    IN  ITIAL  (  eH  )  ; /-P'^R    TO    START    OF 


•1*1* 'r  *i*  *r  '1*  *!*  1*1*  Vi*  'i*  I*"!*  l^  i*«i*  I*  '(^'i*  1*  'I*  '»**i*  n*  n*  'i*  'i**!*  i*  *i*  •t*  i-  'i*  *i*  'i-i*  i*  n*  i*  i*  'i*  *n*  •)•  *.■•**■»  "i*  "t-  "r  <*  n*  i*i*n^  »i*  i*  / 

/v.=*^.c   GLOEALPROCEDURES    ---/ 

/  *j^  'i*  »i*  'i*  3|*  5|*  *|*  ^,C  ^j*  *|»  S|*  ^»  »i«  J|C  «|*  #1*  Jjl  *|I  ?|C  }|C  ^»  »|*  5|*  ^*  *|*  »|'»  *jC  3|«  ?|«  ^%  *|*  •!•  *|*  ^|^  *|*  *|*  ^^^  ^%  ^^^  5|*  *|*  *|«  •!»  ^«  *|»  *,^  *|*  *|»  ^«  *^  *i»  'i^  *|*  #4*  *|*  '1*  *§*    / 

MOVE;    P^OC    (SOURCE, DESTIN,L)    PUBLIC; 

/♦MOVES    FM    SOURCE    TO   BEST  IN    FOR    L    BYTES    -/ 

DCL    (SOURCE, DESTIN)    ADDR,    /*    L    <    255   BYTES    -/ 
(SCHAR    BASED    SOURCE,    DCHAR    BASED    DESTIN, L)    BYTE; 
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rc   i'HILE    {L:=L    -    1)    <>   255; 

DESTIN=DESTIN    +    i; 
SOURCE=SOl"HCE    +    i; 

end; 
END  move; 

FILL:  PROC  (A, CHAR, N)  PUBLIC ;  /-  ^OVE  GEAR  TC  A  N  Tir^ES  -/ 
DCL  A  ADCR, (CHAP, N  , BEST  BASEL  A)  BYTE; 
LO  WHILE  (N  :=  N  -1)  <>  255; 

LEST  =  char; 
A  =  A  +  i; 

end; 
EMD  fill; 

/^  monitor  routines  -/ 

M,ONl:PROC(FUNC,INyo)  EXT  J 
DCL  FUNC  BYTE, 

INFO  addr; 

END  MONi; 

^^0N2:PROCf  FUNC,  INFO)  BYTE  EXT; 
DCL  FUNC  BYTE, 

INFO  addr; 

EMD  M0N2; 
iV0N3:PR0C  PUBLIC; 

CALL  boot; 

END  M0N3; 

/-  I/O  ROUTINES  -/ 

PPINTCHAR :PPOC(B)  PUBLIC; 

/*S  E^]D  THE  ASCII  CHARACTER  B  TO  THE  CONSOLE  -/ 

DCL  B  byte; 

CALL    M0N1{2,B); 

END  printchar; 

PRINT:P^OC (A  )    PUBLIC; 

/-    PRINT    THE    BUFFER    STARTINCr    AT    ADDRESS    A    U^JTIL    '^'    -/ 

DCL  A  addr; 

CALL  rCNl(9,A); 

END  print; 

READ:PROC(A)  PUBLIC; 

/-  READ  CONSOLE  CHAR'S  INTO  BUFFER  A  -/ 
DCL  A  ADDP; 
CALL  yONl fl0,A) ; 

EMD  read; 

CPLF:??OC    public; 

/-   S    END    CARRIAGE-RSTURN-LINE-FEED    -0    THE    CONSOLE    -/ 
CALL    PRINTCHAR(CB); 
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CALL  PHINTC^A.E(LF); 

END  c^.lf; 

^rinteec:  ?rcc(valui)  public; 

lcl  valu^  addr,  t  byte,  cou^jt  byte; 
dcl  ilag  byte; 
T^LAO  =  false; 

CO  I  =  0  TO  3; 

COUNT  =  30H; 

DO  WHILE  VALUE  >=  DECK  I); 
value  =  VALUE  -  DECI (I  )  ; 

FLAC-=  true; 

COUNT  =  COUNT  +  i; 

end; 

if  flag  or  (i>=  3)  teen 
call  printcha,r(count); 

ELSE 

call  ?pintcear( '  '); 
end; 

end  printdec; 

print^tokem :proc  public; 

C\LL    PRINT(.(  '    TOi^EN    =    ^')); 

CALL  print$dec(to?:en)  ; 

C/LL  PRIMT(.(  '  $')  ); 

END  print$token; 

PRlNT^PROr:  PROC  PUBLIC; 

CALL  PRINT(.(  '  PROD  =  $'M; 
CALL  PRPIT$DEC(PRODUCTION  ); 
CALL  PPINT(.(  '  r)); 
END  PRINT $PR0D; 

PPINT$EPROP:  PROC  PUBLIC; 

CALL  cplf; 

CALL  PRINTDEC (ERRCRCOUNT  )  ; 

CALL  PPINT(.('  EREOP(S}  DETECTED  '  ,CR  ,L?  , '^  ' ) 
END  PRINTiEPROP; 

ERROR :PROC(ERRCOIS)  PUBLIC; 
DCL  ERPCODT  ADDR» 

I  byte; 

ERRORCOUNT=ERRORCCUNT+i; 

CALL  crlf; 

CALL  PRINT(.  (  '->;=-    ^')); 

CALL  ^RINT$DEC(LINSNO) ; 

CALL  PPINT(. (  '    ERROR    $'; ) ; 

CALL  ?PINTCEAR(HIGH(ERRC0DE ) ); 

CALL  PR  INTCHAR(LOV(ERRCOrE) ); 

CALL  PFINT(.( '    NEAR    $')); 

do  1=1  to  accu^!(0); 

call  ^rintcear^accumd:^  ); 
end; 
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C»LL  PPINT(  .(CR,L^,  '  A.T  7RRCR  $')): 
CALL  PR INT$T0KEN; 
CALL  PRIMT$PROr; 

17  tokfn=iofc  tefw 
do; 

CALL  ?rint$erpor; 

CALL  ^0N3; 

end; 
SMD  error; 


DISKFRF :PRCC; 

CALL  EPROR('DE'); 
CALL  WCN3; 

E^D  dtskerr; 

OPEN'^SRC^EILE:  PROC  PUPLIC; 

CALL  VOVE(.( 'PAS') ,RECIADDR+P,3) ; 
PFCR(3?),R^C3(1?)  =  ^; 

if  m0n2(15,rfcpaddr)  =  255  tfen 
do; 

call  frpcp( 'ns'); 

CALL  M0N5; 

end; 
END  opfn$spc$file; 

read^src^filerproc  byte; 
dcl  dcnt  byte; 

if  (dcmt:=m0n2(2'?,r^cbaddr)  )  >  filefof  teen 
call  diskerp; 

RETURN  DCNT; 

F^JD  rfad$src$file; 

SFTUPilNTsFILrPPOC  PUBLIC; 

IF    NOINTFILE    then    /-only    ^^AKE    FILE    IF    TOGGLE    OFF-/ 

return; 
call  kovf(.rfce,  .v,fcb,9)  ; 

CALL  ,^^0Nia9,  .Wj;CB)  ; 

IF  I^CN2(22,.yFC3)=255  THEN 

CALL  diskerr; 

/-  SET  UP  SYMBOL  TABLE  FILE  -/ 

CALL  .^OVF(  .RFCB,  .SFC3,9); 

SFCB(32)=2'; 

WFCB(32)  =  O; 

CALL  M0N1(19, .SFC3); 

IF  M0N2(22, .SFC^)=255  THEN 

CALL  diskerr; 
END  setup$int^fil; 

VRIT^INT^FILE-.PROC  PU^^LIC; 
IF  NOIMTFILE  TEEN 

RETURN ; 
CALL    [^ONl  (26,  .DIS?0UTBUFF); 
IF    M0M2^21  ,.V/FCB)^>0    THEN 

CALL  diskerr; 
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CALL    y;CNl(2e,30H);     /-    RE3  7T    D^.A    A  DDF.    -/ 
END   WPIT$INT^7ILE; 

E^IT:    PROCfOEJCCIE)    PUBLIC; 
CCL   03JCCDE   3YTE; 

IT^    (PTTFFPTH    :=    PU7FPTP+1)    >=    INTPECSIZ2    THF\' 
/-WHITE    TO    LISK-/ 

co; 

CALL  writ$int$eile; 
EUFiPTR=e; 
end; 

DISK0UTPUEF(PUJI?TP)=03JC0DE; 
ENI  s^it; 

a^NEpATFrPPOC (C3JC0EZ)  PUBLIC; 
ECL  OPJCOLF  PYTE; 
CCEESIZS=COrESIZE+i; 
CALL  1J•^':IT(03JC0DE); 

END  generate; 

gen$alcr:proc(a,p)  ^ublic; 
dcl  a  3ytf,  3  acdr ; 
call  generate (a)  ; 
call  cenerate{lov^p)  )  ; 
call  generate(hige(3)); 
end  gen ^a ddr ; 

writ^stmiftle;  ppoc  ^^uplic; 
ie  moimteile  then 
retu'^n; 

C^IL  ^ONl  C26,  .SYf^CUTBUFF)  ;   , 
IE  M0N?(21 , .SEC3)<>0  THEM 

CALL  diskerr; 

CALL  ^^O^il  (26,e0£);  /-RES^T  ^^"A  ADLF-/ 
END  WRIT^SYr^$^ILE; 

GEN^SYMTPLtPROC (OBJCODE)  PUBLIC ; 
DCL  OBJCOLE  BYTE; 

IE  (SYK'3UFEPTR:=SYM3UFFPTR  +  1  )>=  INTRECSIZE  THEM 
/-v. RITE  TO  DISK'-V 

do; 

call  vrit$sy^*<^file; 
sympuffptr  =  <3; 
end; 
sy^'0ut3uef(5yh3u^fptr)=03jc0de; 

END  GEN$SYMT3L; 

MOVE^?BTBL:PROC    PUILIC; 
DCL   SYr<PTR    adlr; 

dcl  value  based  sympt^  byte; 

dc  syk?tr=.m^^^ory  to  { last$setbl$  id  -  1); 

call  gensyht3l(value); 
end; 

CALL  GENSYMTBL(e)  ; 
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CALL  r-5:N?Y^TPi(e}; 
CALL  G^:^SY>iT3L(e';; 

CALL  GINSY^'TEL(^); 
CALL  GENSYMTEL(EOIFILLZR^; 
CALL  G^NSY^^TBL(ECF?ILLEH)  ; 
CALL  WHITiSY^^iFILE; 

END  ^•ove$setel; 


clcse$int^fil:  ppoc  public; 

/'^^close  int  code  file  and  sy^  table 
if  nointfile  then 
hetupn; 

IF  rON2(ie,.¥FCB)=255  THEN 

CALL  LISK5RR; 
IF  ^^0N2(16,.SFCB)=255  THEN 

CALL  diskere; 

END  CLO?E$INTiFIL; 


■ILE-'V 


CLEARiLNiBUFE-.PHOC  PUBLIC; 

CALL    FILL{.LINEBTTFF,'    '  ,  CON^UFFS  I  ZE  :  ; 

END  clear$ln$euff; 

LISTLINE:  PROC (LENGTH  )  ; 
DCL  (LENGTH, I)  BYTE; 
CALL  crlf; 

CALL  PHINT$DEC(LINENC); 
CALL  PPINT^CHAR(  '  '  )  ; 

ro  I  =  0  Tc  length; 

call  printchar(linebufe(i)  ); 
end; 

CALL  crlf; 
end  listline; 

/*  SCANNER  interface  */ 
GETCEAR:  PRGC  BYTE  PUBLIC; 

nxt$src$char:  ppoc  byte; 

return  sourcebuff(sourcepth) ; 
end  nxt$spc$chap; 

c^ec?^file:  ppoc  byte; 
10  forever; 
if  (s0urceptr:=s0ttrcfptr+1  )>  =  sourcsrfc?ize  th^n 
do; 

scurceftr=0; 

if  read$src$?ilf=fileegf  the^j 

RETURN  true; 

end; 
if  (neitcear:=nxt$src$c5ar)<>le  teen 

RETURN  false; 

end; 
END  checkfile; 
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IF  CFiCKFILE  CH  (NEXTCHA.R  =  EG7FILL7R)  TFFN 
rc;  /-  FOF  RSACHFL  -/ 

CALL  MCVF(  .{  'FCP',IOLCH&?,LF)  ,SBLOC  .f=): 
SOl^RCFPTP.  =  0; 

nfxtchar=rjxt$src$c?ar; 

fnd; 
linfbujf(limf?t^:=likep^r  +  1  )=:i  extchar  j   /-output  line-/ 
if  nsxtch«r  =  eolcear  then 

DC; 

IINENO  =  LINFN'O  +  IJ 
IF  LISTSCURCE  THEN 

CALL  listlinf(li:jeptr-i); 

LINEPTR  =  Z; 

CALL  clearlneuff; 
end; 

IF  NFXTCFAR  =  tar  THEN' 

.nextchar  =  '  '; 
return  nextchar; 

ENE  r-ETCF/»R; 

eni  sys<routines; 


OP 


sca:j  .shc 


rECLARE  LIT  LITERALLY  'LITERALLY', 

scA.N:  ro; 

rCL  LIT  Tji^CLARE', 
PFOC  LIT  'PROCEDURE' . 
EXT  LIT  'EXTERNAL', 
TRUE  LIT  '1', 
ADDR  LIT  'ALEPESS', 
P.-^LSE  LIT  '2', 
COy^-EMT  LIT  '7EP', 
UNCO^MEfJT  LIT  '?DH'  , 
;^o?EVER  LIT  'V'-ILE  TRUE'; 

rCL  ILENTSIZE  LIT  '32',  /^^  max  IIENTIFIER  SIZE  -  1  -/ 

EOLCHA?  LIT  '0DH',  /-  EiND  OE  SCARCE  LINE  CHARACTER-/ 
RASHMA5K  LIT  '12?',  /-  HAS^^TARLE  SIZE  -1  '■' / 
STRINGLSLIM  LIT  '27H',  /-CPAR  USEE  TO  EELIMIT 

STBIN'IS-/ 

/'i'NUMRER    TYPES    'V 

INTEGER^TYPE    LIT    'l ' , 
UNSIGM$EXPON    LIT    '3', 
PEAL^TYPE    LIT    '2', 
SIC-NED^EXPON    LIT    '4'; 
/^•^    GL03\L    VARIABLES    -/ 

CCL  LIST^TOKEN  PYTE  PUBLIC  I  NIT lAL ^EALS^  )  . 

LIST$PROE  BYTE  ^URLIC  IM  IT  lAL ( EALSE ) , 
LIST$SOUPCE  BYT^  PUBLIC  IN ITIAL i EALSE  )  , 
EEBUr-$LN'  PYTE  PUBLIC  I  N  IT  lAL  (  ^ALSE  )  , 
NOIMTEILE  PYTE  PUBLIC  IN  I  TIAL  (F/.LSE  )  , 

/-  GLOBAL  VARIABLES  USED  BY  TH^  SCANNER  -/ 

TOKEN  T5YTE  EXT,  /-  TYPE  OF  TOKEN  JUST  SCANNEE  -/ 

RASRCODE  BYTE  EXT,  /-  ^a.sh  VALUE  OF  CURRENT  TOKEN 
*/ 

NEXTC^AR  BYTE  PUBLIC,  /-  CURRENT  CHARACTER  FROM 
GETCEAR  -/ 

CON'^  BYTE  EXT,  /*  INDICATES  FULL  ACCUM— STILL  MORE 
-/ 

ACCUM(IEENTSIZE)  BYTE  EXT,  /-  HOLES  CURRENT  TOKEN 
*/ 


NUMBERC  LIT  '54',/-  NUMBER  */ 
STRINGC  LIT  '55',/-  STRING  */ 
IDFNTC  LIT  '53';/-  IDENTIFIER  -/ 

/-  LOCAL  VARIABLES  'V 

DCL  LOOKEE  BYTE, /-TRUE  V)EEN  GSTCHAR  HAS  ALREAEY  RETURNEE  A 
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Ti^MPC^ARl  BYTE,  /'^'    ^OLDS  PRE^^lCUSLY  SCANNED  CEAP  -/ 
TTMPCEAR2  EYTE;  rCL  PAR!^LIST^9)  EYTe  INITIAK'  '); 
DECLAPE  V0CAB(17?)  ?YTE  INITIAL 

(2,   .  ,   <  ,   (  ,   +  ,  5EF,     ,   -•  ,   ;  ,   >  , 

''>'/':'/'=',  eiH,  '..',  ':-'.  'EC-',  'IF',  'IN',  'OE', 
'CP '   'TO  '   'EOP  ' 

^ANC,  ''EIV',' 'END',  'FOP',  >^nD',  'NIL',  'NOT',  'SET', 
'VAR',  'CASE', 

'ELS^',  'FILE',  'GOTO',  'THEN',  'TYPE',  'V/ITE',  'AFP^Y', 
'BEGIN',  'CONST', 

'LABEL',  'UNTIL',  'WHILE',  't^C'>*'NTO',  'FACKEE',  'RECOPE', 
'REPEAT  ' 

"''PROGRAM',  'FUNCTION',  'PROCEE'TRE  ' )  : 

DCL  VLOC(10)  BYTE 
INITIAL(3,l,17,33,63,91,121.1i5,15?,lc0) ; 

ECL  VNU^de)  BYTE  I  MITIAL(  C  ,  1  ,  17  ,  25  ,35  ,  42  ,46  ,53  ,56  ,5?  )  ; 

DCL  COUNT(10)  BYTE  IN ITI AL (P , 15 , 7 , 9  ,6 . 5  ,3  ,0 ,0 ,e ) ; 

/-  GLOBAL  PROCEEURFS  -/ 

DECLARE  PAR^!S  ADDR  EXTERNAL, 

TYPENUM  BYTE  EXTERNAL; 

MOVStPROC  (SOURCE, DESTIN ,L)  EXTERN/L; 
ECL  (SOURCE, DESTIN)  ADDR, 

L  byte; 

END  ^'<^'^1:\ 

EP^.OP  :PROC(ERRCODE)  EXTERNAL; 
DCL  FRPCODE  ADDP; 

END  error; 

OPEN$SRC^EILE:  PROC  EXTERNAL; 

END  open^src^eile; 

CLEAR$LNiBUEE:PRCC  EXTERNAL; 

END  clfar$ln$buff; 

A**!**!*  *!•  ^i* *>» *i»  J|* *j*  *i*'i»  ^  'I****  *i*  ',■•  *i»  *»■»  -t*  'I*  1*  1*  *»•*  *i*  i*n»  •(■*  *i'*'^*  1*  1*  *i*  i»  -I-  »t*  'I*  'i-'t*  'i'*  'I*  'i*  'I*  1**1*  n*  "^^  1*  'I"  '»■•  ^1*  'i*  '.'  '»■•  ^-  ^«  ».*  'I*  'i* 

*  SCANNER  PROCEDURES  - 

GETCEAR:  PROC  BYTE  EXTERNAL; 
END  GET char; 

getnoblank:  proc; 

do  vhile(  (getchar  =  '  '  )  or  (nextchar  =  eolchar^; 
end; 
END  getnoblank; 
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mT$SC*M>J^R:  PPCC  PU3LIC; 
DCL  COUNT  ?YTE, 

I  EYTS; 
1=0; 

CALL  f^OVE(PAPMS,.PARf«'LIST,e)  ; 
IF  PARMLIST(0)='$'  THEN 

CO  vVHILE  (C0UNT:=PARMLI5T(I:=I-1)  X>'  '; 
IF  (COUNT:  =C0UNT-'a')<=4:  T^^^EN 

ro  CASE  count; 

LISTSCURCE  =  true;  /-  A  -/ 

LisTPRor  =  true;  /*  r  -/ 
moiwtfile  =  true;  /-  c  -/ 

LISTTGKEN  =  TRUE;  /-  D  -/ 
DERUGLN  =  true;  /-  E  -/ 
end;  /-  C?  CASE  -/ 

t^nd; 
CALL  open$src$eile; 
CALL  cle/r^ln^ruff; 
call  '"-etnoblank; 
ENC  I  nit ^scanner; 

/O,  *i*  «l^  *l*  ^*,  *l*  *l,  »l,  ^t,  O-  O-  »•-  .1*  *•*  *•-  *<-  O-  »t-  ,»*  *»-  %t*  *»*  *•*  »»*  *•-  *'*  *t-  ■.»*  *i*  «,•-  ^'^  «J*  »•*  <.'*  O-  «.'^  *<-  *■*  s"-.  O--  ^t*  *'*  *•>  *•*  *»-  ■.'*  -''  -•*  *'-  -'-  «.'*  "»>  '-•'■  o- 
'I*  'O*  'I*  '1*  "t"  'I-  t*  »1*  'I'^'l"*  't-  'l^'l*  '1-  '(■»  ^1*  »1»  'I*  'I*  'l'  'I*  'I'*  'l»  '»"•'»-  '1*  'l*'!*  't*  -»■*  'I*  'l*  'l'*'.'*  'I"*  't**!*  '.'  'I*  'I*  '!■"  -»■*'»*  'l*  'I*  *%"   '»'  '.•*  'I'  'I-  '1-  '1'  'f 

'•-  SCMNER  - 

>r«  V*  »"•  *»*  *>*  *!*  V-  *•-  -••  V*''  *•'  -f">f^  -J^  ■*»-  •■''•  V^  *'■'  ■*•■•  *•'  ^'  *•'  *•'»  **'  *■■»  -'■'  **■"."  **•  *'»  *■'  *■'"  *''  i^  *''  »•■■*''  -'■-  *''  •»''  ■*'-  •^-'■'■»  *"  **'  -'">■''   *'-  *•■'  *'-  »•-  2'-  5*'   / 
*>■*  'r*  'I*  '^'*  *>*  *|*  *»■*  '«■•  T*  ^i*'>'*  *i^  'i-"!^  n*  ';■•  'i"  **•  *C  '1"  *t*  *»■■  'i""  'r*  n*  '»■•  '»■*  '1**1*  I"  I'"  1'  *>•  •('•  T*  *»'  l-'l*  'i-  'I*  '1-  'I*  'i*'i*  •(*  'i»  '»*  'i*  'I-  'I*  'i*  *X-  *!'  '(-  / 

scanner:  prcc  puflic; 

putinaccum:  prcc; 
IF  n'ot  cont  then 
ro; 

4CCU^'(ACCU^'(0)  :=  ACCUM(?;  +  1/  -  nextchar; 
'^ASHCOFE  =  (HASHCnrF+NEXTC^AR)  ANT  PASHKASK; 

if  accum(0)  =  31  t^en  cont  =  true; 
end; 

END  PUTINACCUh; 

PUTANDGET:  PHOC; 

CALL  PUTINACCU'>'; 
CALL  C-ETNOPLAN'<; 
END  PUTANDGET; 

PUTANDCHAR:  PROC; 

CALL  PUTINACCUr^; 
NEXT CHAR  =  GST CHAR; 
END  PUTANDCHAR; 

NUMERIC:  PROC  BYTE; 

RETURN (NEXTCEAR  -  '0')  <=  p; 
END  NUYFRIC; 

LOWERCASE:  PROC  RYTE; 

RETURN  (NEXTCHAR  >=  61H)  AND  (NEXTCHAR  <-  7»-); 

END  lowfr$case; 
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D^Cir':AL?T:?POC    ^YT?! 

??TUP.\'    N'EXTCHAR=' .'; 

^ND    TiCIMALPT; 

CONV^TO^UPPEK:P^OC; 

U    LCW5T?CASE   TEEN 

NFXTCHAF.=NEXTCHAP    AND    SEH; 

FNL  conv$to$upper; 

lETTEP:    PROC    EYTE; 

CALL  conv$to^uppee; 

RETURN    {(NEXTCHAR    -    'A')    <=    25); 

ENi  letter; 

ALPFANU^^:    PROC    I^YTE; 

P7T-JRNJ    NUKEPIC    OR    LETTER    ; 
ENL    ALPHANU^; 

SPOOLNUr.RIC:  PPOC; 

DO  v'-^iLE  numeric; 

CALL  putanlchar; 
end; 
emd  spoolnumric; 

SETiMSXT^CALL:  PRCC; 

IV  (m^xtchar  =  '  ')  or  (nextc?\r=eolchar)  then 

CALL  CtET\'03LANK; 

CONT  =  false: 
EMD  set^next^call; 

1 

LOOKUP:  PROC  BYTE; 

dcl  vaxrwlng  lit  '9';   ' 

DCL  PTP  ADEP,  (EIELD  BASED  PTR)  (9;  BYTE; 

dcl  I  eyte; 

COMPARE:  PROC  BYTE; 

DCL  I  ryte; 
1=0; 

DO  VEILE  (FIELD (I)  =  ACCUM(I  :=  I  +  1))  AND  I 
<=  ACCUM(3); 

end; 

return  i  >  accum(0); 
END  compare; 

IF  ACCUM(£)  >  MAXRWLNG  TEEN 
RETURN  false; 

?tp=vloc(accum(0))+.vocab; 
ro  i=vhum(accum(0) )  to 
(vnum(\ccum(0))+count(accum(0) ) ); 

IF  compafe  then 
do; 

token=i; 
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RFTURH    true; 

end; 
t^tr  =  pth+accun'(^)  ; 

fnd; 

RETURN  false; 

ENr  lookup; 


C?EC«:$EXP:  PPOC; 

/-  THIS  TAKES  CAPE  OF  EXPON.  FOH^'  -/ 
IF  NEXTCEAR  =  'E '  THEN 

CO; 

TY?ENU^■  =  UNSlGNiEXPON  ; 

CALL  putanlchar; 

IF  NEXTCHAP  =  '-'  OP  NEXTCHAP  =  '  +  '  T^ 

do; 

CiLL  PUTANLCEAP; 

typenum  =  signed$expoij; 
end; 
call  spoolnumric; 
emd; 
end  check^fxp; 

/*'*  %'*  %•*  %**  *•*  *t*  «l«  *•*  ^l*  *»*  %&«  *•*  *>•*  «l«  *l*  »•*  *t^  ^1*  ^^  «•«  «f«  ^l^  «l^  t30   fc»*  «(«  «l«  «l^  «l«  ^^  «l«  ^1^  ^l«  ^«  «l^  »t*  ^l^  ^«  «l«  ^t,  »t,  »1,  ^,  fct,  ^»^  ^t,  O*  *'*  *'•  »•* 
^[■k  'i*  'I*  '(«  't«  «(«  ^«  ^,«  r^-^    >|ii  ^l«  ^^  «,*  ^,«  ^|«  «|«  «|«  «f«  ^|«  «|*  «|«  «f«  r^v  7|*  ^«  «|*  «l«  r|«  «|»  ^|«  «,«  ^«  «,«  ^«  ^^  «|«  «|*  »^«  r^s   «,>  «|%  ^i*  «^%  i^'.    «|«  «|V  «|«  «l<i>  ^i*  ^1* 

SCANNER  -  rAIN  CODE  ---/ 

i'  'I*  V  ?!*  *<*  'i'  'I*  -)*  ^i*  '4*  V  *i*  •»'  'I*  5|'  ^*  ^*  »i^  'I*  'i'  'T  V  n*  'I*  't^  'I*  '1^  'i'  »i'  'I*  n*  '1*  V  V  'i'  *i'  *!'  ^i'  *\'  *.*  'i' ' '  -1*  't*  5,s ;,;  5t<  *,J 


/ 


/ 


DO  forever; 

ACCUr^(0),  HASECODE,  TOKSM  =  ?\ 
IF  (NFXTCHAR  =  ST^INGDELI^)  OR  CONT  THEN 
do;  /-  FOUND  STRING  -/ 
TCK^N  =  STRINGC; 

coNT  =  false; 
ro  forever; 

DO    WHILE   GETCHAR    <>    S'^RINGDFL  I^; 

CALL    PUTINACCU^.; 

IF  CONT  THEN  RETURN; 
END; 

CALL  getnoplank; 
if  nextchap  <>  stringdeli^^  teen 
return; 

CALL  PUT$IMiACCUM; 

end;  /-  OF  DO  FOREVER  -/ 
end;  /-  OF  RECOGNIZING  A  STRING  -/ 
ELSE  IF  NUMERIC  THEN 
do;  /-  HAVE  DIGIT  -/ 

TOK^N  =  NU^'.^ERC; 

TYPENUM  =  INTEGER$TYPE; 

do  while  nex"'char  =  '0';  /-eli^^  leading  zeros 

nextcear=gftchar; 
end; 

call  spoolnumric  ; 
if  dfcimalpt  teen 

do; 

TE^^^CHARl    =    NEXTCHAR; 
.NEXTCHAP    =  GETCHAR; 
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Dc; 

LOCKSr=TRU^;/*EANrLE    . .-/ 

rzturn; 
fnd; 

EL  SI 

do; 

TF(^PCHAR2    =    NEXTCHAE; 
NEXT CHAR    =   TEMRCHAPi; 

CML  put$in$\ccuk; 

NZXTCHi^.  R=TEKPCHA?2; 
TYPENU^'  =  RSAL$TYPE; 

call  spcolnumpic; 

end; 
E^JD; 

CALL  CHECK^EXP; 

IE  ACCUM{^)  =  0  THEN 

HASHCOrE,/CCUr^(ACCUr<(?)  :-l  )    =    '0'; 
Ca.LL    S^T$iNEXT$CALL; 

peturn; 

end;  /*  OE  RiCCGNlZING  NUr^EPIG  CON  STAN' i  -/ 
ELSE  I^  LETTER  THEN 
do;  /-  HAVE  A  LETTER  -/ 
m  WHILE  ALPHANU'^; 

CALL  putanbchar; 
ek'd; 
ie  not  lockup  then 

tokem  =  icentc; 
CALL  set^i\ext^call; 
returm ; 

end;    /-   OE   RECOC-iNIZING    R¥   OR    IDE'^T    -/ 
ELSE    do;    /-    SPECIAL    CHARACTER    -/ 
IE    MEXTCH^R   =    CCmvemt    ^^EN 

do; 

NEXTCKAR  =  GETCHAR; 

do  WHILE  NSXTCEAR  <>    UNCOMKENT; 

nextchar  =  getchar; 
end; 

CALL  get^no^elank; 
end; 

ELSE 

do; 

ie  mextchar  =  ': '  then 
do; 

CALL  PUT AND char; 

IE  NEXTCHAR  =  '= '  T-EN 

CALL  putandget; 
end; 

ELS^ 

ie  nextchar  =  '. '  th^n 
do; 

i^  looked  then 
do; 
lcc'<ed=ealse; 


1^4 


CALL  PUT^IN$ACCi:^; 

end; 

ELSE 

CALL  PUTANECEA?.; 
IE  MEXTCHAH  =  '.  '  T^-EN 

CALL  PUTANrCET: 
ELS^^ 

IE  NUMERIC  THEN 

rc; 

TO ''"EM  =  MUr^lEPC; 

TYPSNUM  =  real^type; 
gall  spoolnumric  ; 
call  check$ex?; 
call  3^t$next^gall  ; 
return; 
end; 
end; 

CALL  futandget; 

I^^  NOT  LOOKUP  THEN 
CALL  ERROR (  'NC  '); 

CALL  3^t$next$call; 
return; 
Er'L: 

end;  /*  OF  RECOGNIZING.  SPECIAL  CH»R  -/ 
end;  /-  OE  DO  EOREVER  -/ 

END  scanner; 
EMD  scan; 


125 


PA^S5P.  .S"C 


$?AGEVIDTH(5Z)  TITLE ('  PAESFR') 
PARSFR:  10', 

DFCLARE  LIT  LITERALLY  'LITERALLY', 

rCL  LIT  'DECLARE',  PUE  LIT  'PUPLIC,  EXT  LIT 

'EXTERNAL', 

PROC  LIT  'PECCEDURF', 

TRUE  LIT  '1', 

ALLT'.  LIT  'ALLRESS', 

FALSE  LIT  'e', 

FOREVER  LIT  'V.'RILE  TRUE', 

STATES IZE  LIT  'ALLRESS ', 

I.MLFXSIZE  LIT  'ADDRESS';  DCL 

IDEMTSIZE  LIT  '32',  /-  MAX  IDENTIFIER  SIZE  -  1  -/ 

VARCSI7E  LIT  '100',  /-  SIZE  OF  VARC  STACK-/ 

PSTACKSIZE  LIT  '4:6',  /-  SIZE  OF  PAPSE  STACKS  -/ 

HASFTPLSIZS  LIT  '128',  /-  SIZE  OF  PAS^TABLE  -/ 

PCDSI7E  LIT  '8',  /-  BYTES  USED  ^0?.    BCD  VALUES  -/ 

MAX^NFST  LIT  '3',  /-^^AX  LEVEL  0^  NESTS  FGP  TYPES-/ 

r^AX^ARRY$DI^^  LIT  '5';  /*  Vkl    A.pt^Y  DIKEMSIONS  -/ 

/-  MANY  OF  TEE  FOLLOV/INC-  VARIABIES  CAN  PE  REPLACED 


BY 


MAKING  USE  OF  THE  PARALLEL  PARSE  STACKS  -/  DCL 
SIGNTYPS  BYTE  PUB  INITIAL  f0), 
rONST^'^YPE  BYTE  PUB  INITIAL  (0),/-  TYP^  C^  CONSTAN 

FORM  PYTE  PUB  INITIAL  (-3), 
FXPON  BYTE  PUB  INITIAL  (0), 
VECPTR  BYTE  PU"!^  INITIAL  O), 
TYPEMUM  BYTE  PUB  INITIAL  (0), 
CONS'T'iPTF  BYTE  PUB  INITIAL  (0), 
TYPE^ADDR  ADDR  PUB  INITIAL  (3), 
TYPE^LOCT  ADDR  PUB  INITIAL  (0), 
VAR$PTR  BYTE  PUB  INITIAL  (0), 
VAR^PAPMiPTR  TJYTE  PUB  INITIAL  (2), 
ALCCBASICTYP  BYTE  PUB  IMITIAL  (0), 
ARRY$O^Y(MAX$ARRv^DIM)  ADD^  PUB  INITIAL  (0). 
VAR$BASE(10)  ADDR-  PU?  INITIAL  (3), 
VAR$BASE1(10)  ADDR  PUB  INITIAL  (0), 
ALLC$OTY  ADDP  PUB  IMITIAL  (0), 
T^PF^ORD^NUM  ^TTE  PU^  INITIAL  (2), 
PARENT^TYPE  ADDR  PUB  INITIAL  (0^, 
CONST$INDX  ^YTE  PU3  INI'^IAL  (0). 
LOOKUP^ADDR  ADDR  PUB  INITIAL  (0^ 
C0NST$VEC(4)  BYTE  PUB  INITIAL  ^? )  , 
C0MST^VALUE(16)  BYTE  PUB  INITIAL  (0), 
C0NST^PN^HASF(4:)  BYTE  PU^  INITIAL  {<i), 
CCNST^^N^PTP  BYTE  PUB  INITIAL  (0), 
C0NST$PN$SIZF(4)  BY-^E  PUB  INITIAL  (0), 
INTEGER  $DIFF  ADDR  PUB  INITIAL  ( -^  )  , 
SUBR$VAL(2)  ADDR  PUB  INITIAL  (0\ 
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SU^ESPT^    3Y'^^    ?UB    INITIAL    (2), 
STT-p<TY?^ACL?    AEDR    ?U?    INITIAL    {d), 
FUfR^FORr    EYT?    PUI    INITIAL    (0), 
SIC-MVALU    SYTr    PU3    INITIAL    (■?). 
At^HY^BASF   ALLR    PQB    INITIAL    (3), 
A?RY$PTH    EY'^F    PUP    INITIAL    ^255),    /-    -1    -^ 
APBY$DI,^$PTP    3YTE    PU3    TMITIAL    (^), 
PTRPTH    BYTE    PUP    INITIAL    O), 
TAGiPD(M«X$NFST)    EYT?   PUP    IMITI.«L    f0), 
VAP$CA,S$TP(^'AX$NFST)    ADDP.    PU3    TUTIAL    ((^), 
VAP.iCASiVAL(rAX^NEST)    ACT^    PU^    INITIAL    {Z)  , 
PEC^T^AR^TYpCi^AX^NEST)    BYTE    PUP    INITIAL    (?). 
RFC ^N ST    BYTE    PUB    INITIAL    (255),    /-    -1    -/ 
RECORB^PTR    ?YT^    PUB    INITIAL    (255),    /-    -1    -/ 
REC^«LrR(10^    ALLR    PUB    INI'T'IAL    (e), 
P^C$PAR$AD?(^AX^NEST)    ADDP    PUB    INITIAL    (0), 
VA?IANT^PART(MAX$NE3T)    BYTE    PUB    INITIAL    (d), 
FXr^OEST$ESE(MAX$NE?T)    ALLR    PUP    I^'ITIAL    (C), 
VARiOT^ST$3SF(MAX$NEST)    ADDP    PUB    INITIAL    (0), 
CUP^OEST(MAX^NEST)    ADDR    PU^    INITIAL    O), 
NU?^$ARRYiDI^'(MAXiARRY$ri!^)    BYTE    PUB    INITIAL    O^), 
APRviDI^'FN(?5)    ADDP    PUB    INITIAL    (0), 
ARY$DM^ACR$PTR    BYTE    PUB    INITIAL    (255).    /-    -1    -/ 
/-    C^SE    STAT.'f^ENT    VARIABLES    -/ 
C».S^^3TK(12)    BYTE    PUB    INITIAL    (0),/=='-    ^    OF    STYTS    IN 

CURRENT  CASE  ^V 

CASE$ COUNT  PYTE  PUB  INITIAL  ^255),  /-  -1  -  LEVEL  OF 

CASE  STf^TS  -/ 

C0NSTiNUKiTYPE(4)    BYTE    ?U^    INITIAL    (0);    DCL 

BCrNUM(ECrSI7E)  PYTE  PUB  INITIAL  (0), 

SCOPE(10)  ADDP  PUB  I^IITIAL  (0), 
SCOPEiNUr  BYTE  PUB  INITIAL  (3), 
TFVPBYTE  EYTE  PUB  INITIAL  (0), 
TE^.P^YTEl  BYTE  PUB  INITIAL  (0), 
TEr^PADDR  ADDP  PUB  INITIAL  (0), 
TEMP^DDRl  ALLR  RUE  INITIAL  (0), 
PFODUCTION  BYTE  PUB  INITIAL  (0). 
PRV<SBT^ENTPY  ADDR  PUB  INITIAL  O);  DCL 
/*  CC^PILER  TOGGLES  -/ 
LIST^TOKEN  BYTE  EXT, 
COMPILING  BYTE  INITIAL  (0), 
/-  COUNTERS  */ 
LABLCOUNT  ADDR  PUB  INITIAL  (0),  /-  COUNTS  NUMBER  OF  LAB^^LS 

ALLOCS ADDR  ADDR  PU^  INITIAL  (0),  /-  COUNTS  PRT  ENTRIES  -/ 
/*  FLAGS  USED  DURIN'G  CODE  GENERATION  -/ 

CASE^STMT  BYTE  PUB  IMITIAL  (0),  /-  IN  CASE  S'^ATEMENT  -/ 
VRITE$ST^T  BYTE  PUB  INITIAL  (0),  /'"•=  IN  WRITE  STATEMENT  -/ 
REA.D^STMT  BYTE  PUB  INITIAL  (0),  /-  IN  READ  STATEMENT  -/ 
NEV^STMT  BYTE  PUB  INITIAL  (0),  /"''   GETS  NEV  RECORD  -/ 
riSPOSE$STMT  BYTE  PUB  INITIAL  (0),  /-  DISPOSES  OF  RECORD  -/ 
ALLOCATE  BYTE  PUB  INITIAL  (0),/-  PRT  LOCATION  ASSIGNED  -/ 
VA^FARM  BYTE  PUB  INITIAL  (0),/-  FORMAL  PARAM  IS  VARIA^L^ 
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TTP5  ^V 
ET^a.rPAPrS  3YTE  PU3  PJITIAL  (^),/-  PE\DIMG  ACTUAL  PA^AM^T^PS 

PP5SENT  PYTF  PUP  INITIAL  (0),/-  ILENTiriE?  IS  IN  SYr^POL 
TAPL^  -/ 

NO^LOOK  5YTE  INITIAL  (0^,/-  GONTPOLS  CALLS  TC  SC«NNFP  */ 

SIGN^FLAG  BYTE  PUE  INITIAL  (0),/-  SET  VEEN  SIGN  PHECEDES  IE 

/*  GLCBftL  VAPIABLES  USED  BY  THE  SCANiMEP  */ 

TOKEN  BYTE  PUB  INITIAL  (0),  /'^=  TYPE  OE  TOKEN  J^tST  SCANNED 

^ASFCOD^  BYTE  PUB  INI'T'IAL  (0),  /=^  HASH  VALUE  OE  CUPPENi^ 
TOKEN  -/ 

COMT  BYTE  PUE  INITIAL  (0),  /-  INDICATES  FULL  ACCU^~STILL 
MOPE  -/ 

ACCU^(IDENTSIZE)  BYTE  PUE  INITIAL  (0),  /-  HOLDS  CUHPENT 
TOKEN  ^^/ 

/*  GLOBAL  VAPIABLES  USED  IN  SYMBOL  TABLE  GP^PATIONS  -/ 

EASE  ALDR  PUE  INITIAL  f0),  /-  BASE  LOCATION  OF  ENTRY  =V 

HASHTABLE(?.ASHTBLSIZE)  ADDP  PUB  PJITIAL  (0),  /-  EASETABLE 
APRAY  -/ 

SBTELTOP  ADDR  PUE  INITIAL  (0^,  /''-'   HIGHEST  LOCATION  OY 
SY(^^OL  T»BLE  */ 

SBTPL  ADDP  PUP  INITIAL  (2).  /-  CUPRSNT  TCP  OE  SY^;^CL  TABLE 
=:=/ 

APTRADDR  ADDR  PUE  INITIAL  (0),  /-  UTILITf  VARIABLE  TO 
ACCESS  SBTBL  -/ 
PRINTN«VE  ALDR  PUE  INITIAL  (0),  /-  SET  PRIOR  TO  LOOKUP  ^^ 

SYNHAS"  BYTE  PUP  INITIAL  (0),  f'    HASH  VALUE  0^  AN 
IDENTIEIER  -/ 

LASTiSBTBL$ID  ADDR  PUB  INITIAL  (0),  /-  HOLD  PREVIOUS  BASE 
LOCATION  'V 

PARA^NUrLOC  ADDR  PUP  INITIAL  (0),  /-  STORES  P^INTE?  TO 
PARAM  LISTING  -/ 

S"^TELSCO?E  ADDR  PUB  INITIAL  (0).  /-  BA^E  Cj  LAST  ENTRY  IN 
PREVIOUS  BLOCK-/  BUILTINTEL f 10 )  BYTE  EXT; 

EILL:  PPOC  (A, CHAR, N)  EXT; 
DCL  A  ADDR. 

(CFAR,N )  byte; 

END  eill; 

INIT^SYMTBL:  PROC;  DCL  SY^BASE  ADDP; 

do; 
call  eill(  .fashta3le,0,?55); 

SY!^BASE  =  .EUILT$INiT^L(0)  ; 

SETBL=.NEf>^'OT?Y: 

hasftable(14)=sy^:3ase; 

FASHTABLE(3e)=SYr^3ASE  +  14:; 

FASHTAELE(30)=SYMEASE-t-25: 
HASFTA^LE(0)=SYf^BASE+36; 
HA S^TA E LE ( 69 )=SYKBASE +5  0; 
HASETABLE(ie)=SYf^3ASE+6i; 
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El 


FAS STABLE 
^ASETABLE 

HASFTA'BLE( 

EASET^ELE 

HASETA3LE 

HASHTABLE 

EASBTAELE 

HASHTABLE 

HASHTABLE 

HASHTABLE 

HASHTABLE 

HASHTABLE 

HASHTABLE 

HASHTABLE 

HASHTABLE 

HASHTABLE 
HASHTABLE 
HASHTABLE 
HASHTAELE 
HASHTABLE 
HASHTABLE 
HASHTABLE 
HASHT».BLE 
"-ASHTABLE 
HASHTABLE 
HASHTABLE 
HASHTABLE 
HASHTABLE 
HASHTABLE 
^AS^ TABLE 
HASHTABLE 
HASHTA.3LE 
PHV^S^T$EN 

ir; 


11?) 

(86)  = 

(116) 

(571  = 

(lf9) 

(?e)  = 

(74)  = 

(e7J  = 

(90)  = 

(12)  = 

(?)=s 

(101) 

{9^)  = 

(46)  = 

(43)  = 

(121) 

(96)  = 

(3)=3 

(34)  = 

(29)  = 

(106) 

(23)  = 

(64)  = 

(107) 

(28)  = 

(54)  = 

(11)  = 

(37)  = 

(4?)  = 

(21)  = 

(99)  = 

{62)  = 

NTPY 

=  SY."^BAS 
SY^Bi.SE 

=SYKBAS 

SY^'EASE 
=SYKBAS 
SY^'BASE 
SYMBASE 
SYMBASE 
SYKBASE 
SYMEASE 
YK:BASE+ 
=SY(^BAS 
SYMEASE 
SYr'BASE 
SY^;BASE 

=SYiYEAS 
SYMB^SE 
YKBASE-^ 
SYMEASE 
SYMEASE 
=SYI^BAS 
SYMBASE 
SY^iBASE 
=SYKBAS 
SYMEASE 
SYKBASE 
SYMBASE 
SYME/SE 
SYMBASE 
SYMBASE 
SYMBASE 
SYMBASE 
=  SYMBA 


+«6; 

E+130; 

+142; 

F+159; 

+173; 
+i«=e; 
+20i; 
+230; 

+244; 

26?; 

E+276; 

+290; 

^304; 

+319; 

E+334; 
+347; 

363; 

+375; 
+3  92; 

E^40  6; 

+416; 

+434; 

E+449; 

+465 

+478 

+493 

+507 

+523 

^535 

+55? 

+56'^ 

SE+567; 


END   init$symtbl; 


ECL    ST«TE    STATESIZE    INITIAL    (0), 

VAR(PSTACKSIZ^)    BYTE   PUB    INITIAL    (0), 
HAS^^PSTACKSIZE)    BYTE    PUB    INITIAL    (0), 
STAT^STACK(FSTACKSI?E)    ST/TESIZF    INITIJ>L    (^\ 
PApvvTjM(PSTACXSIZE)    BYTE    PUB    INITIAL    (0),    /- 

MAINTAINS    NUMBEP    OE   PAHAMETFR3 

ASSOCIATEE   VITH    A 

SUBPOUTINE    -/ 

LABELSTACK(PSTACKSIZE)    AEE?    PUB    INITIAL    (0),     /- 

TRACKS    STATE'^EMT    LABELS    */ 

PARMNUMLCC(PSTAC7SIZE)    ADEP    PUB    INITIAL    (0).    /- 

MAINTAINS    THE    LOCATION    IN    SYMBOL 

TBL    V;HERE    PARA^^ETEH 

I  MEG   STORED   -/ 

BASE$LOC (PSTACKSIZE)  ADLP  PUB  INITIAL  (0^,  /-  STORES 

THE  SY^^BCL  TABLE  ALLPESS 

0?  THE  PERTINATE  ENTRY 
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rOR^$FIELr(F5^TACiCSIZE)    rYTZ    ^U5    INITI*!    (2),     /- 
STOP.FS    T^T    70?^.    FIELE    CF 

SC^NNIL    irFN'I'iyiFPS    -/ 
TyPF$STACK(PSTAC?CSIZ5)BYTF   PUF    INITIAL    (?/,/-    EOirS 
A    Vi.PIABLf'S    TYPE    -/ 

5'XPR?5S^STK(PSTACK5IZE)^YTP    PU?    INITI^I    (0),    /- 
CONTAINS    TEE    TYPES    OF    TEE 

EXPRESSION    CCr^POMFNTS 

PT?T$ADrH(PSTACKSIZE)    ADDP    ?U^    IMTIAL    ('3',    /-    STORES 
Kfi    IPENTIFIER'S    FRT 

LOCATION    -/ 
VARCfVARCSiZE)    EYTE    PUP    INITIAL    (0), 
VAPTNL^X    3YTF    INITIAL    (?) , 
PARAMMUI^    BYTE    PUB    INITIAL     {d), 
(SP,^P,MPP1}    BYTE    PUE    INI'I'I/L    (2'); 
/-    YN^KONICS    FO^    PASCAL-S[^.    i^ACEIN^    -/ 
ECL    MATRNO    LIT    '165'    Z-^AX    REAL    COUNT-/,    MAX L NO    LI"'    '?42  ' 
/-^^AX    LOCK    COUNT-/,    *^AXPNO    LIT    '26^^'    /-^'AX    PUSE   COUNT-/, 
STARTS    LIT    'l'    /-START    STATE-/; 

LECLAPF    RFALl(l)    BYTE    EXT,    REAI)2{1)    AEPR    EXT,    INLEXl(l) 
ALLR    EXT,    INLEXed)    EYTE    EXT,    APPLYKD    BYTE    EXT,    APPLY?  d) 
ADEP    ^XT,    LCCKl(l)    ^YTE    ^XT,    LOOXPd)    ALLR    EXT; 

SETUP$INTiFIL:    PROC    EXT;    ENE    SETUPS  I.\T$riL ; 

INIT$SCANN^R:    P^OC    ^XT;    END    IN  IT$S CANNE? ; 

INIT^SYNT'-^:    P^nc    EXT;    ENE    INITSSYNT^'; 

ERROR:  PROC ( ERRCOBE )  FXT;  DECLARE  ERRCODE  AEER;  END  ^RRO^; 

SCANNER:  PROC  EXT;  END  SCANNER? 

PRINT$TC*<EM:  PROG  EXT;  ENL  PRINT^TOXSN; 

SYNTEFSIZF:  PROC  EaT;  END  SYNTHESIZE; 

P^INT:PROC (A)  FXT; 

rcL  A  aeer; 
END  print; 

CRLF:P^OC  EXT; 

ENE  c^lf; 

titlf:ppoc; 
call  crlf; 

CALL  PRINTf . ( 'NPS-PASCaL  VERS  0.0  3-MAR-6e  5''); 
CALL  CRL^; 

END  title; 

MOCONFLICT:    PROC    (CSTATS)    BYTE: 

DCL    rS^ATE   STATFSIZE,    (I,J,X)    INDi^XSIZE; 
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K=  J  -^  IMLEX2(CSTaTE)  -  i; 

DO  I  =  J  TO  s; 

1^    ?EAL1(I)  =  TOKEN  THEN  ^E^URN  ^RUv ; 

end; 
END  noconelict; 

RECOVER:  PR^C  STATESIZE; 

DCL  TSP  3YTE,  ESTATE  STATESIZEJ 
DO  EOREVEP; 
T5?  =  sp; 
DO  WHILE  TSP  <>  255; 

IE    NOC0NEIICT(RSTATE :=STATEST^CK(TSP)  )    THEM 
do;    /-    5^/TE    WILL    READ    TOKEN    -/ 
IE    SP    <^    TSP    THEN    SP    =    "SP    -    i; 

PETiTPN  rstate; 

EN  D ; 
TSP    =    TSP    -    1; 

end; 

CALL  sc.m>jner; 
end; 
end  recover ; 

do;  /-block  ?0^.    DECL/ RATIONS-/ 

DCL  (I,J,K)  IND^XSIZE,  INDEX  3YTE; 
INITIALIZE:  PROC; 

0.4 LL  init^scanner; 

C\LL  INITiSYr'TBL; 

CALL  init^synth; 
CALL  title; 
END  initialize; 

GETINl:  PROC  INDEXSIZE; 
RETURN  INDEXl '' STATE  )  ; 
END  GETINl ; 
C-ETIN2:  PROC  INDEXSIZE; 
RETURN  IN DEX2f STATE  )  ; 
END  GETIN2; 
INCSP:  PROC; 

IF  ^SP  :=-  S^  +  1^  =  LENCT^(STATeST;,CK)  THEN 
CALL  VF.ROP(  'SO'); 

end  incsp; 
look ahead:  proc: 
i^  nolook  then 
do; 

CALL  scanner; 
NOLOOK  =  e.«.lse; 

IE  LISTTO^FN  THEN 
CALL  PRINTS  token; 

end; 
^ND  looka'-^ead; 

SET$VARC$I:  PROC^I);  /-  SET  VARC  .  AND  INCR^^NT  VARINDEX 
-/ 
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rcL  I  ^yte; 

V*HC(VARINDFX )=i; 

ir    MJAHINLEX:=VARINr'EX+l  )    >    LENTTIifVARC^    'i:EYJ\ 
C^LL    FRFCF(  'VQ'); 
ENT    SFT$VARC$i; 


^  "^  T  TT  P  T    /  'i'  ^i'  1^  'i*  'r  'I*  '»'  ^i*  '•*  *!*  V  *»'  'I*  '»*  'i'  'I*  '»*  ^r  V  'i^  *!*  'I*  'I*  'r  V  ^*  'I*  'i'  *»*  'i*  V  'i'  'i*  V  *»'  •!*  'i*  'i*  'i*  'i^  'i^  *>'  *»*  'i'  ^'  'i'  '•*  /    /  ' 

':-/  Z':^  PARSER:  EXECUTION"  FECI  MS  HERE  ''•=/  /-  -/ 

/  ^J  5,»  5|»  *,i  Si*  JjC  *|?  5,S  i|»  i,5  i|i  J|i  ^«  5^*  5,i  J,i  Sg*  ?(C  ifi  ifi  5,i  ^C  Sp  >,C  5,C  ^S  i,S  ;,J  ^C  J,S  5,C  5,C  *,*  5,i  ^S  5,<  Ji?  3,*  5,i  ;,»  i,i  5,t  ;,C  *|S  5,C  5,C  5,C    / 


CALL  SETUP^INT^FIL;  /-  CREATES  OUTPUT  FILE  FOR  GENERATFL 
CODE  */  CALL  initialize;  CC^PILIM C- ,N 0L0CK=TRUE ; 
st*.t^=starts:  3p=255:  vap  index  ,v4r  (0  )  =  0;  lo  v-'hile 
compiling; 

IF  STATE<='^AXRNC  T^EN  /-'   ^EAD  STATE  -/ 

do; 

call  ik'csp; 

STATES TA ex fSP)=STATE; 
I=GFTIMi; 

CALL  looxafead; 
j=i+GETiri2-i; 

do  1=1  TO  j; 

IF  RFADKI  )  =  TOXEN  THEN  /-  SA'.'E  TOXEM  -/ 

ro;  /-  COPY  Accr^^  to  proper  position  -/ 
VAr(s?)=vAP index; 

DO    INDEX    =    2    TO   /^CCU^O)  ; 

call    SET^VARC^KACCU^f  INDEX)  ^  ; 

end; 
^^s'-^(sp)  =  hasfcode; 

S?ATE=REAL2^I ) : 

nolcox=tfue; 
i=j; 
end; 
flsf 

IF  l=:   THEN 

do; 

call  efrcr( 'np'); 

IF  (STATS  :=  RECOVER  )=2'  THEK 

COMPILING  =  false; 
end; 
end; 
end; 
els^  ie  state^^;axpno  then  /-  apply  proiuction  state  -/ 
do; 

ViP=S?-CETIN  2 ; 

^'PPi=r'.p+i; 

PRODUCTION  =  STATE-rAXPMo; 

CALL  synthesize; 

SP=^:P; 

i=getini; 
varinlex=?ar(sp); 
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J=STj4T?STACK(S?'  • 

ro    V-IL^    (K:=APPLY1(I) )    <>    ^    ANT    J    <>    KJ 

17    (STATE:=    A??LY2(I))=3    THTN 

COMPILING  =  false; 

7NC; 

if  state<r=  haxlno  teen  /-  lookaheat  state  =;=  / 
do; 

I=C-ETINi; 

CALL  LOOKAHEAi; 

ro  VEILF  (f::=LOCKl(l)  )  <>  ?    AND  TOKEU  <>  K; 

i=i+i; 
ENi; 

ST4Ti=LCCK2(I ); 

end; 

ELSE 

do;    /-    PUSH    STATE    -/ 

CALL  incsf; 

ST-ATESTACK(S?^=   C-ETIN2; 
STA.TF=GFTI;ii; 

end; 

end;    /*    OF   VHILE    COr^PILIMG    -/ 
end;    /-    OF   ^LCCK    FOP    PARSER    -/ 

END  parser; 


ii; 


TABLES. SRC 


T«5Lis:  ro; 

^?AGrV;IETH(£^)  TITLF  ('Tables  -  IALPi'I)  pap  37  TABLES') 
DICL.^RE  LIT  LITEBALL''^  'LITEP.ALIY  ' , 

i.CDP  LIT  'i^rcp^ss', 

DCL  LIT  'DiCLAPE', 
PUP  LIT  'PUPLIC; 

DCL    DUMy.Y    {3)    BYTE    TA.TA    (?,2.2);    /-DUMMY    EILLE?    TO   EORCF 
BUILT^ INSTABLE    TO    l?eH    -/ 


DCL   ^UILT^IM^T^L    (-)    lY'^E    P^.'B 


'<3,3 

,0,0. 

0,0 

,01H, 

0,0 

.01H, 
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2,  2,    1,    2,    2,    7,    ?,    1,    2,    9,    2, 
,    3,    4,    3,    4,    2,    4,    4,     5,    2,    3,    2 

C,      C,      C,      o,      ^,      c,      v^,      O,      <>,      ^,      iC 
^f      ^,      t-,      ^,      ^,       ^,       •-',      '^,      <-,      c,      t, 

63,    71     ,    72,    77,    91,    92,    93,    94, 

,    141,    150,    165,     170,    171,    174,    1 

,    5,    0,    2,    0,    2,    0,    0,    2,    0,    2,    2 

0,2,0,2.2,0,0,0,0,0,2 

0,5,0,2,0,0,2,0,0,2,0, 

0,    2,1,3,    0,     0,    2,     0,    2,    0,    2 

0.    1,    2,    1.    1,    1,    1,    0,    1,    4,    1, 

,0,2,    3,    e,    1.    (^,    0,    0,    0,    1,3 

3,  0,  0,  0,  0,  0,  2,  2,  0,  1  ,  3 
1,0,0, 0,0, 2, £,0,  0,0,0, 
0,  1  ,  0,  0  ,  0,  0,  2,  2,  0,  0,  0 
0,    /5,    2,    4,    2,    2,    0,    2.    .3,    1,    1, 

,    2,    0,    0,    0,    3,    0,    0,    0): 


,    1. 

1, 
,  1. 
,  1, 
,  1. 
.  2, 
,    1, 

7, 

,    5, 
,    4, 

14, 


?5 

.    2, 

0, 
.    1. 

0, 
,    0, 
.    2, 

0, 
.    2, 


END  tables; 
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SYr:3CL.S?C 


$?ACEWirTHf60)  TITL^( 'SYr^ECL  -  SYMBOL  T/ELE  ROUTINES') 
SYi^^OL:DO; 
DECLARE  LIT  LITERALLY  'LITERALLY', 

rCL  LIT  'rSCLARE', 

FOS  LIT  '0', 

N'EG  LIT  '1',  PU3  LIT  'PUBLIC,  EXT  LIT  'EXTERNAL', 

PROC  LIT  'PRCCEEURE', 

TRUE  LIT  '1', 

ADDR  LIT  'ADEPESS', 

FALSE  LIT  'P', 

BUILT$IM$FUNC  LIT  '0DH';  DCL 

IDENTSIZE  LIT  '32',  /-  I^A  X  IDENTIFIER  SIZE  ^  1  -/ 

VARCSI7E  LIT  '100',  /-  SIZE  01  VARC  STAC'C-/ 

PSTACKSIZE  LIT  '48',  /-  SIZE  OF  PARSE  STACKS  -/ 

HASFTBLSIZE  LIT  '126',  /-  SIZE  OF  FASHTAPLE  -/ 

HASH^^ASK  LIT  '12?',  /-  HASHTAELE  SIZE  -1  -/ 

[^AXINT  LIT  '32767',  /-  ^'AX  INTEGER  VALUE  -/ 

PCDSIZE  LIT  'S',  /'^^  PYTES  USED  FOR  PCD  VALUES  -/ 

i^AX$NSST  LIT  '3',  /-  MAX  LEVEL  OF  NESTS  FOR  TYPES  -/ 

^:AX$ARRY$DIM  LIT  '5',  /-  MAX  ARRY  LIMENSIO^JS  -/ 

FORMMASX  LIT  '7',  /-  USED  TO  DETERMINE  FORM  TYPE  -/ 
/-  FORM  ENTRIES  -/ 

CCNS^ENTRY  LIT  'l', 

TYPE^ENTHY  LIT  '2', 

VAR$ENTRY  LIT  '3', 

?nMC$EMTRY  LIT  '5',  /-  NUMBER  TYPES  -/ 

INTEGER$TYPE  LIT  'l', 

SIGNED$EXPON  LIT  '4', 

REAL$TYPE  LIT  '2', 

FARM  LIT  'e7', 

LODI  LIT  '79', 

PARMV  LIT  '69^', 

/-  MANY  OF  TFE  FOLLOWING  VARIABLES  CAN  RE  REPLACED 
BY  MAKING 

USE  OF  THE  PARALLEL  PARSE  STACKS  -/ 
DCL 

FORM  BYTE  EXT, 

EXPON  BYTE  EXT, 

VECPTR  BYTE  EXT, 

TYPENUM  BYTE  EXT, 

CCNST$PTR    BYTE    EXT, 

STARTBDOS    ADDR    EXT,    /-ADDR    OT    FTP    TO    Tn?    OF    ?DOS-/ 

TYPE^LOCT   ADDR    EXT, 

VAR$PTR    BYTE    EXT, 

VAR^BASE1(10)    ADDR   EXT, 

ALLC^OTY  ALIR  EXT, 

CONST$INDX  BYTE  EXT, 

LOOKUP^ADDR  ADDR  EXT, 

C0NST^VALUE^16l  BYTE  EXT, 

C0NST$PN$HASE(4)  BYTE  EXT, 

C0NST4PN$PTR  BYTE  EXT, 
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C0KST$PN$SIZF(4)    rYTS    EXT, 

CUR^^?ST(iYAX$NEST)    MLR    EXT, 

/-    C^.S^    STATE^iENT    VARU3LES    -/ 

C0^■ST$^JU^^$TYPE(4:)    3YTE    EXT,'    /---    GLOBAL   VARIABLES 

rCL    BCrNUM(ECD?IZE)    BYTE    EXT, 
SC0?E(12)    ADDR    VIT , 
SCOPE$MUM    BYTE    EXT, 
TEMPBYTE    BYTE    EXT, 
TEt^PADDR    AELR    EXT, 
TEr^PArr^.l    AFLR   EXT, 
PRV$3BT$ENTPY    ADLP    EXT; 


DCL 


*/ 


/-    COr^PILEP    TOGGLES    -/ 

/-    COUNTERS    */ 
LABLCOUNT   ALDR    EXT,    /-    COUNTS    NUMBER    OF    LABELS    -/ 
ALLOC^ALLR   ALDR    EXT,    /-    COUNTS    PxvT    ENTRIES    -/ 

/-    FLAGS    USED    DURING    COLE    GENERATION    -/ 
REAPPARMS    BYTE    EXT,    /-    READING    ACTUAL    PARAMETERS    -/ 
PRESENT    BYTE    EXT,    /-    IDEMTIEIE?    IS    IN    SYMBOL    TABLE 

SIGN$FLAG    BYTE    EXT,    /''•=    SET    'a'HEN    SIGN    PRECELES    IT    -/ 

/•'^    GLOBAL   VARIABLES    USED    BY    TEE    SCANNER    -/ 
HASHCOEE    BYTE    EXT,    /-    HASH    VALUE    OF    CURRENT    TOKEN 


*/ 


/-  GLOBAL  VARIABLES  USED  IN  SYMBOL  TABLE 
OPERATIONS  -/ 

BASE  AEIR  EXT,  /-  BASE  LOCATION  OF  ENTRY  -/ 
FASHTA3LE(HASHTBLSIZE)  ADDR  EXT,  /-  HASHTA^LE  ARRAY 

"V 

SBTBLTOP  ALD^  EXT,  /-  HIGHEST  LOCATION  OF  SYMBOL 
TABLE  */ 

S3TBL  ALDR  EXT,  /-  CURRENT  TOP  OF  SYMBOL  TABLE  -/ 

APTRADDR  ADDR  EXT,  /'^   UTILITY  VARIABLE  TO  ACCESS 
SETBL  -/ 

ADDRPTR  BASED  APTRADDR  ADDR,  /-  CURRENT  ?    lYTES 
POINTED  AT  -/ 

(EYTEPTR  EASEL  APTRAEER)(1)  BYTE,  /-  CURRENT  ^YTI 
POINTED  AT  ^V 

PRINTNAME  AEDR  EXT,  7=^  SET  PRIOR  TO  LOOKUP  OR  ENTER 

SYMHASH  BYTE  EXT,  /-  HASH  VALUE  OE  AN  IDENTIFIER  -/ 

LAST$SBTBL$ID  ADDR  EXT,  /-  HOLE  PREVIOUS  B\SE 
LOCATION  '^V 

PAR*MNUMLOC  ADDR  EXT,  /-  STORES  POINTER  TO  PAR  AM 
LISTING  -/ 

SBTBLSCOPE  ADDR  EXT,  /-  BASE  OF  LAST  ENTRY  lil 
PREVIOUS  ELOCK'-V 

SP  BYTE  EXT, 

MP  BYTE  EXT, 
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PAFMiNUML0C(PSTACI3IZE)    ATDP    EX1, 
PARAI^NUy    PYTE    EXT, 
PFTADDR(PSTACKsizE)    ADDR    EXT, 
EXPRESS$3TI^(PSTACK5IZE)    ?YTE    EXT, 
FORMiFIELL(PSTACKSIZE)    PYTE    EXT, 
VAR(PSTACKSIZE)    BYTE    EXT, 
VARC(VARCSIZE)    BYTE    EXT, 
EASE(PSTACKSIZE)    £YTE    EXT; 

/-   DECLARE    EXTERNAL    PROCEDURES,    FOUND    I'J    SYSRT3    -/ 

GENERATE:    PROG f OBJCODE )    EXT; 
DCL   OEJCODE   BYTE; 

END  generate; 

ERROR:    PPnC (ERR CODE )    EXT; 
ECL   ERRCODE   ALDR; 

END  error; 

NiOVE:    PROC  (SOURCE, DESTIN,L)    EXT; 
DCL    (SOURCS,LESTIN)    ADLR; 

DCL  L  byte; 
END  move; 

M0N3:    PROC    EXT; 


GENADDP:    PROC (A, B)    EXT; 
DCL    A    BYTE,E    AILR; 
END    GEN ADDR ; 

/*■#  *V  V*  V^  V'  ^f  V*  ^'  ^'  ***  **'  ***  ^f  *•'  *•■*  *'*  *''  *'*  ^'*  »'*  *'■•  *>'*  *'^  **'  *'*  *■''  »''  *''  *'*  *'•'  *'*  *'■*  *V  *''  *''  *'*  ■'''  *'*  *■'*  *''  *''  V'  *'*  *''  *'*  *'*  ^''  *'* 
rj*  ^*  #1%  J^  Ji(»  »l%  *(*  *|*  «f«  «l«  «|«  #1%  *)>  *j*  *|*  *,»  »|*  »|^  ^»  *!«»  *!■*  ^j*  *j4  ^»  »,x  >,*  »!*  *,»  *,»  ^p  *|»  ^,*  *i*  *|»  *|*  »i*  r,'^   *,*  *,s  *(^  ^I*  *i»  •^^  >|»  >l«  »,■»  rf,*  *,« 

-  SET^ArDRESS$PTR    -   THIS    PROCEDURE    SETS    A    - 

*  POINTER    TO    A    SPECIFIC    LOCATION    IN    TEE    - 
'!*    SYMBOL    TABLE.    '^^ 

^  5*;  5"^  iV  i'j  "^f  V'  •*•  ^  "'f  *'*  *•*  "^  *'*  "-V  ***  »•'  •'■•  *'?  »'*  *•■•  ^'-  ***  *V  *'*  >'^  '•'*  *•*  •■*»  ^•*  *•*  *'"  V*  •■''  -'*  **'  •«''»  "''  •■'*  *'■'  "■**  *'*  •»'*  **•  *•'  »'•  »'-  "■*'  / 
'I*  'I*  '1*  'I*  'I*  't*  'i*  't*  'P  1*  '»*'t*  T*  '^''  '^  'i*  'I*  "^^  'I*  'l*  *»*  'i*  'I*  "l*  't*  'I* 'I*  '1*  '■*  'I*  'i'  'I*  'I"  '■*  'I*  'i^  ''I'  '»*  'i*  'I*  't*  't*  'I*  '•*  'i*  't*  'I'  '*^  / 

SETADDRPTR:    PROC(OFFSET)    PU3; 
DCL    OFFSET    BYTE; 
APTRALDR    =   BASE    +    OFFSET; 
END    SETADDRPTR; 

*  SET$PAST$PRINTNAME    -    THIS    PROCEDURE    SETS    - 

-  APTPADDR    TO   A    LOCATION    IN    A    SYMBOL    TABLE    - 

*  ENTRY    T^AT    IS    PAST    THE    ENTRY'S    PRI\"'NAME    - 

-  (WHICH    IS    OF    VARIABLE    LENGTH).    - 

5,*  <^«  ^»  ^*  ?i«  *,£  JjJ  ;,,  SjC  ;,C  ^  *|'  ;,J  ^C  >|C  S^C  S^t  ^C  <^C  3j*  ;,C  J,'  ^»  5,^  J»C  ?!•  5,<  ?,!  5,i  \i  *■,?  ;,t  TJ*  :^C  5,%  5,»  i,C  5,S  5,*  3,<  igi  *(i  J,t  5|i  JfC  J,<  5,i  J|i  / 

SFT^PAST^PN:    PI^OC  (  OFFSET  )    PUB; 
DCL   OFFSET    BYTE; 
CALL    SFTADDRPTR(6); 
CALL   SETADDRPTP(t^YTEPTRO)    +   OFFSET); 

END  set$past$t=n; 

1*  1*  't*  'I*  '»*  'i*  't*  'I*  'I*  'r*  '»■*  'i*  *■»*  I*  *i*  '1*  'I*  'I*  'I*  *»*  "I*  'I*  *(*  1*  'I*  'I'  '»*  '1'  'I*  ^^  'i'"  ^t-  '»*  "^^  1*  *!"■  'I*  'r*  »i*  •^*  '**  'I*  'p  'I*  '»■•  'i'  'f  'I* 

*  CALC$VAPC    -    THIS    PROCEDURE    DETERMINES    THE    - 

-  LOCATION    OF   AN    IDENTIFIER    PRINTMAME.    ^'' 
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CALC$VARC:    PROC(A)    i.DDR    PU3; 

rcL  A  pytf; 

H5TURN    VAR(A)    +    .VARC; 
END    CALC$VAPC; 

^^   SETiLCOKUP    -    THIS    PROCEI^RE    IS    UTILIZEE    TO    - 

*  ^IND    THF   HASH    VALUE    OF    AN    IDENTIFIER.    - 

»f«  «l*  *i«  **#  *'■«  v«  ^'  «*«  **'  «*'  «*'  V'  ^*^  ^''  >'€  V^  ^''  ^''  ^*'  *V  %*^  ^''  ^'^  *'#  ^''  ^>  V'  •'^  «V  ^^  ^''  ^'^  ^^  ^'  ^''  ^'^  *''  ^''  >V  >*«  ^''  v*«  V'  *''  ^''  ^'  ^*'  ^''      / 

»j*  •i^  •!*  *|«  *|*  ^,«  ^«  *(»  *f»  *l*  *|*  *|*  *(*    ^i*  ^%  #,*  »j*  *!••  *|»  *t^  ^*  *|*   2|^^|&  *|»  ^H^*   »,-•  #j*  ^*   *,%  ^1*  ^p  ^y«  «|*  ^|«    ^»  ^*  Ji|V  ^»  J|^  ^%  J,*  *,»  *,*  *,*    «»,»  «|«       / 

SETLOOrCUP:    PROC(A)    PUD; 

DCL  A  ^yte; 

PRINTNAME    =    CALC iVARC ( A  )  ; 
SYMHAFH    =   RASH (A);    /-    HASHCOEE    OF    PN    -/ 
END    SETLOOKUP; 

/«!«  *••  »»*  *'*  «i^  »u  »•*  ■»**  *'*  •'*  V'*'*  *•*  »'*  y^  »'»  *•*  *'*  "^^  *•*  »•*  V  ^'*  '»'*  *'■»'■*'•  *'*  ^'*  *'*  'J'"  *•-  *'*  ^*  ^'^  s'*  •■*  %''  *'*  'V  *■'  *•**•*  »v  *'*  »'*  ».'*  fc<**i*  / 
*(*  *i*  *(*  ^*  *i*  'l*  >!*  *,*  #1*  •■|»  *|*  'i*  *)•  *p  >|*  *,»  »(*  *!"»  >i*  >i*  *)*  ^,*  *|»  #(■*  *^*  ♦!*  *(«  *(»  *,»  *|*  *^-»  #|>  *)■«  *,»  J,»  ^i*  *,•  ^*  »|W  *|»  *,»  »!»  ^*  *,^  •!»  rfj*  *,*  »,*   / 

/*  ENTER3LINKS    -    THIS    PROCEDURE    ENTERS    IN    THE   -/ 

/*  NEXT    FOUR    BYTES    OF    THE    SYi^:BOL    TA3LE    THE    -/ 

7=^  COLLISION    FIELD    AND    THE   PREVIOUS    SYMBOL    '^V 

/*  TABLE    EN' TRY    ADDRESS    FIELD    FOR    THE    NEXT    -/ 

/*  SYI^BOL    TABLE    ENTRY.    (    BOTH    IN    ADDRESS    VAR     )    -/ 

'I*  »|*  #,■•  •!*  *)*  *i«  ^»  #1^  *(*  #|"»  *p  S,»  #,^  »!«  «^  ^|>  ^^  «(ik  *,*  ^«  ^%  7|^  ^l«  r,^  ^,*  5|*  *p  ^i*  S,»  *,*  «,v  *,»  »,••  rfi*  *|«  ^f*   *,»  *j«  ^»  *i*  *|"*  *,-  «^«  *,»  r|*  *(«  *|»  *,*  / 

ENTER$LIN'"CS:    PROC   PUi; 

BASE,    APTRADDP. ,    SBTBLSCOPS    =    SBTBL; 

scopE(scoPE$NUM)  =  sbtbl; 

ADDR^TR    =   HASHTABLE(SYMHASH); 
CALL   SETADDPPTP(2)  ; 
ADD^PTR    =   PRV$S?T$ENTRY; 

?rv$set^entry  =  sbtbl; 
easetable(sykhash)  =  base; 
end  ente^^links; 

*»■*  '^"^  *(*  'i*  1*  *i*  *(*  *!•  *i*  *f  'i^n*  ^**  1*  I*  '^•*  'p  'i*  'I*  n*  *i*  *•*  n^'i*  't*  •»*  'I*  '!■•  'I*  'I*  't*  '.■•  'I*  'I*  'i*  'I*  'i»  'i*  'r  't*  •^*'i*  'i*  'i*  'i*  'i*  'i-  "(* 

*  CEECK$PRINT$NAf-'E    -   THIS    PROCEDURE    DOES    A    - 

*  CHARACTER.    TO    CHARACTER    COMPARISON    BETWEEN    '•- 

*  THE    CURRENTLY    RECOGNIZED    IDENTIFIER    AND    - 

-    SYMBOL    TABLE    ENTRIES    OF   TEE    SAME    H^.SE    VALUE.- 

'i*  'I*  *i*  *i*  'i**  'j-  'i*  '(^  *!*  'I*  'I*  •^*  *t*  *i*  *!*  ^i*  5,C  ^*  3|%  J|<»  5|*  1|*  5,C  *]€  ?f*  3|i  I|S  5,*  5|i  5,»  *|!  3|i  3J*  5|I  J,*  3i»  *,»  *,^  »,*  *,*  5i*  #^«  *,*  *p  *.«•  ^^^  *^^  *i»  / 

CEKiPRT$NAME:    PROC(A)    BYTE    PUB: 

/*    A    IS    OFFSET    EPOM    BASE    TO    PRINTNAME    -/ 
DCL(N    BASED    PRINTNAME ) ( 1 )    BYTF; 
DCL    (LEW, A)    byte: 
CALL   SETADDRPTR( A ) ; 

IF    (    LEN     :=    BYTEPTR{3)     )    =N(0)    THEN 
DO   WHILE    (BYTEPTR(LEN)=N(LEN ) ) ; 
IF    (    LEN    :=    LFN-1     )    =   0    THEN 
RETURN    true; 

end; 

return  false; 

END    CHKiPRT$NAME; 

•I*  i»  "»*  1*  •^''  "c-  '»*  'I*  *^*  *t*  *r  't*  T*  '1*  'I*  1*  'I"  'r  ^r  *»*  -^^  *!*  *c  'I*  'f^  *i*'i*  1*  *r  '»*  *r  *»*  "^  '»*  i*  'i*  'i*  'i*  'i*  'f  'i*  'i*  *»■*  'c  'i*  "i"  -i*  *»*  / 

/-  L00KUP$PRINTNAME$IDFNTITY   -    THIS    PROCEDURE   -/ 

/*  IS    PASSED    THE    LOCATION    OF    AN    IDENTIFIER    IN    -/ 

/*  THE    PRODUCTION    RULE,    AND    ITS    TARGET    ENTRY    -/ 

/-  TYPE.    IF   THE    IDENTIFIER    IS    FOUND    WITH    THE    '•-/ 

/*  CORRECT    TYPE    THE    PROCEDURE   RETURN    TRUE,    -/ 
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/::,.  -?.k$  4„  U l §1...  1  ?. ...  Ms.  P' ' !:!  M  .•. ... '.^' ,( ... .,  „. ,. 

LOOKUP^PNiir:  PROC ( A , ir$FNT? Y)  BYTl  PU?  ; 

rcL  (A,ir$5:NTRY^  ?yts; 
CALL  s5:tlcokup(/)  ; 

3ASE  =  ?ASHTAPLF(SYrHASH); 

rc  vetle  pas 2  <>  e; 

CALL  SETADDRPTH(4); 

IF  ((  PYTFPTP(2)  AND  FOPT^AS'^  )  =  ID^FNTBY  )  T'-'L'J 
IF  CHiC$PRT<N/^'F(e^  T^£N 

I^  ((BASF  <  SCCPF(0))  0?  (BAS^^:  >  = 
SCOPF(SCOPEiNUM-l)  ) 

OR  ((ir$2NTRY  =  TYPEJFNTRY)  ANT  (BA.SF  <' 
SCOPF(SCCPF$NLr. )  ))  ) 

T^FN  do; 

LOOKUP$ArDR=PASF; 
RETURN  true; 

end; 

CALL  SETAriRPTR(e); 

BASE  =  adcrptr; 
end; 

RETURN  false; 

END  lookup$pn$id; 

/-  LiriTS  -  TFIS  PRncEDURE  ENSURES  T?,*  T  THE  -/ 
/-  SYMBOL  TABLE  EN^RY  ABOUT  TO  PE  FNTFRED  -/ 
/-  V/ILL  NOT  EXCEED  THE  UPPER  Llf^IT  OF  THE  -/ 
/-  AVAILAPLE  SY.^EOL  TABLE  ADDRESSES.  -/ 
/-  THE  PARAMETER  IS  THE  BYTECOUNT  OF  THE  -/ 
/*  ENTRY  TO  ?E  ENTERED,  v/ 

/tj^   «V  <J«  v^*  kO  .!«  0«  U*  i.*i*  •A*  ■>>«  «*«  «V  %lo  «;«  «■«  «.•«  «.>«  «.!«  i.t^  «l«  *^^  O^  *•«  •>'<•  «!•  ^«  *Ji*  «)«  >»*  ■***  <k>'  -L*  «>«  iJ*  «■'  «■''  .i'«  >■«  •>.■'  ••'  «''  «'«  «•«  o*'  «■<•  O'  «>'   / 
a*  'I*  'I* 'I*  1*  "n*  *!*  't*'!'  ^^  'f**!*  1*  •1*  •»*  '(*'»"  1*  "^^  'I*  'I"*  f  •ni*'!*  '»*  'l*-i*  't*  'I*  'l*  '»*  ^*  'I*  'I'  'I"  'I*  'I-  '(■•  'l*  '»*  'l'»'l'»  **!*  't'  'I"  '1-  'l""r  / 

LI^'ITS:    PPOC(COUNT)    PUB; 
DCL   COUNT   byte; 
IF   SETBLTOP    <=    (SETEL    +   COUNT)    THEN 

do; 
call  epror('to')  ; 

CALL  M0N3; 

end; 
END  limits; 

n*  T  *1*  'I*  '•*  *^*  '1*  *»'  1*  *!■•  *•!'•  1*  ^  *»*  *?  -l*  *l*  *l*  1*  ^  'I*  ^1*  *l*  1*  'I*  'I*  *■!*  *l*  •>*  *»■*  'I-  '»■*  'I*  'l*  *»*  'I*  '»■"  "l"*  1*  'I*  'I*  •»*  '«*  'I*  'I*  "V*  1'  *!*  / 

/*  ENTER $PP IN TNAMF^IDFNTITY  -  THIS  PROCEDURE  -/ 

/*  LOADS  THE  SYMBOL  TABLE  WITH  "^^-'E  FOLLOWING:  -/ 

/-  1.  COLLISION  FIELD  */ 

/-  2.  PREVIOUS  SYMBOL  TABLE  ENTRY  ADDRESS  -/ 

/-  3.  FORM  OF  ENTRY  (  PRESET  BYTE  "FOPM"  )  -/ 

/-  4.  THE  LENGTH  OF  THE  PRINTNAME  IN  ONE  BYTE*/ 

/*  5,  THE  PRINTNAME  CHARACTERS  -/ 

/-  PARAMETER:  PRINTNAME  IS  SET  PRIOR  TO  CALL.  -/ 

/  n*  'f  *r»  '(*  'r*  '(•*  2|^  1^  ^1*  'I*  ^C  '|5  ^Ji  ^,«  <•,•  ^  5|C  5,'  *,C  i^t  *fi  5|C  5,J  JgC  iji  Sj*  J,C  ^  5,1  *,C  3,1  ?,-  igS  Sp  S,C  5,t  J,C  i,'  5jl  ;,C  5|C  5,S  5,*  J,'  J,I  I,C  J,i  5,<    / 

ENTER$PN$ID:PROC  PUB; 

DCL  I  byte; 

DCL  (N  BASED  PRINTNAME y fl )  BYTE; 
CALL  LIMITS (l:=N(0)+7); 
CALL  ENTER$LINKS; 


123 


CALL  SETA 
EYTEPTRf0 
CALL  SET& 
?YTEPTP(^ 
CALL  SETA 
"RYTEPTK(2 
CALL  MOVE 
LAST$SBTE 
S3TBL=SBT 
ENTER^PN 


ENTEP^VAPIABLEilE^NTITY  -  TE 
CALLS  ENTER$PN^IC  TO  LOAD  TF 
ENTRY  CURRENTLY  BEING-  SCANNE 
GENT^PATES  TEE  ENTRY'S  "EORr^" 
A  BOOLEAN  'OR'  OPERATION  ON 
AND  THE  ?ARA^^ETER  "a"  .  -/ 


END 
/'- 

/- 

ENTE^iVAR$ID:  PR 

rcL  (A,E,ir.$ 

IE  LOOKUPiPM 

do; 

PRESE'^IT  = 

return; 
end; 

/-'  ELSE  ENT^ 
PRESENT  =  EA 
FORM  =  A  OR 
CALL  ENTER$P 
IE  IDS  EN  TRY 

do; 
call  li^^it 

VAP$3ASE1( 
SRTBL  =  SB 

end; 
end  entep$v\?^i 

/  9ft  »!•  *,*  0{%  »,*  •,<*  *,»  2,<k  »-^  ^«  ?j*  3j-»  0|« 


ddrptr(4:)  ; 
)=  EORr^; 

DDRPTR(f ) ; 

)=  sym^ash; 

DDHPTRfe); 

)=N(0); 

(PRINTNAME-^l  ,SBTBL+7  ,  N  (  3  )  )  ; 
L$IL  =  S5TEL; 

3L+i; 
iiD; 


S  PROCELUHE  -/ 
SY^'BOL  TABLE  ^ 
.  IT  ALSO  -/ 
BY  PEPEORKI\'G  = 
'-^E  lE^ENiRY  -/ 


V 
V 


OC(A. 
ENTRY 
$ID(B 

true; 


B.ir^ENTRY) 

)  byte; 

,ID$ENTRY) 


pub; 

TEEN 


R  VAR 

NA^E 

-/ 

lse; 

IDiEN^ 

fry; 

N$ir; 

=  VAP$ENTRY 

THEN 

s(4^; 

VARiP^ 

rp)  = 

SBTBL 

TBL  + 

4; 

d; 


"■  «^*  '.*  *)*  *v 


r  *»'  *)'  't*  -1'  ^»  '1*  'I*  *»**»*  1'  '1*  'i' 


;;i5;:s;;;.i5;j 


SETHABEL  -  THIS 
TO  THE  CURRENT  DE 
THE  LABELCOUNT  ( 

*'j  Vf  »''  *>*  *'-  *»c  *«- «.»-  -'-  -J-*»-  ou  *>,  »o  >i*  0*  vt*  »i- 

'1*  '1*  I*  -1*  '1*  't^  '1*  '»*  '1^  'l"*!'  •■»*  V  1*  'l'  'l*  'l*  'I' 

PROCEIURE 
GLARED  LAB 

NEXT  TO  AS 

>  .■«  ^^*  *>*   V'  «*'  -*'  <.■'  -u*  <J«  «*' 

•  1- '.-  -1»  '1*  '1*  'P ." 

AS 
EL 
51 

ST'T$LA3EL:  PROC  PUB; 
ADDPPTR=LA3LC0UNT; 
LABLCOUNT=LAPLCOUN 
END  SET$LA3EL; 

T+i;  ■ 

SIGNS  A  LABEL  -/ 
\ND  INCREMENT-/ 
GN  ).  -/ 


/' 

/-  ENTER$LABEL  -  TE 

/*  ENTRY  INTO  THE  S 

/*  PRINTNAME  MUST  B 

/  *r  '1*  'I*  5i'  V  '1'  '1'  '1'  '»'  »r  *!*  '1^  'i^  *v  '1^  't*  '1'  'p  ' 

EMTER^LABEL:  PROC  PUB 
CALL  LIMITS (2) ; 
APTRALDR  =  SBTBL; 

CALL  set$label; 


•  V*  «.!«  «J«  «'-  «'«  •.•«  «■<  ^»  V*  «■•  •1'  • 

•  ^  1*  'I*  '»■•  'I*  "I"  'i'  1*  n*  *i*  'i"  • 

IS  ppocedur: 
ymbol  table 

E    SET    PRIOR 

r^'*    *|»   *|»  #p    »(*  •'4*   '1*    »|*  «■(*    '(»  'I*   ' 


>ic  ;Ic  s'jJ ;!'  ?,c  3,i  il^  jj'  5^  jjc  ^j  5.;  j,c  j,c  v  5 

loads  a  label  ' 
symhask  and  -/ 
to  calling  -/ 


I 
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S3T3L  =  S3T3L+2; 

EMD  ente?$la?el; 

*  ALTFPiPRT^LOCATIOi^S  -  THIS  PEOCECUPE  BE"  '^ 
^'   ALLOCATES  PPT  LOCATIONS  FOP  ALL  fUXCTIONS  - 

-  AND  ECPVARD  PROCEDURES  AND  TEEIR  ASSOCIATED- 

-  EOPMAL  PARAr^ETEES.  - 

V*  **;  *'*  y»  i';  *••  *>*  »•*  *•-  y*  *'-  *•*  *•*  *>-  *v  y*  *•*  *•*  ••'*  **£  -u  u*  *•-  o-  *«-  ,•*  %•*  *•*  «•*  «.'^  v-  *•-  »•-  *'-  *'-  **-  *•*  *•-  *■•-  *•-  *v  *•-  **-  -•-  -•-  *•-  »'-  -'-  i 
*i*  'I*  1*  'I*  't*  't*  "i*  'I*  'r  'I*  'I'  'I*  'I*  'I"  n*  'i*  't*  't*  '(*  1*  'I*  f  *i*  'i*  '^''  'I*  "I*  '1*  'i*  'I'*  'i*  'I*  'I*  'i*  'I*  *v  'i"  'I*  'I*  't*  'i'  ^i'*  'I*  'I*  't*  'i"  '!"■  'I*  / 

ALTER$PRT$LOC:  PPOC  PUB; 

DCL  (i.p)  pyte; 

CALL    SETiPAST$PN(7); 
P    =    3YTEPTR(0) ; 

PApA[^NTjMLoc  =  aptraddr; 

DO  I  =  1  TO  p; 

CALL  SET$PAST$PN(a)  J 

APTRADDR  =  ADDT?PTR  +  ((I-l)-3); 

DO  CASE  (SER(rYTEPTR(^),3)  AND  EORr^MASK  )  ; 


ALLC$OTY 

=  i;  /-  SCALAR  =; 

V 

ALLC$OTY 

=  2)    /-  INTEGER 

'■\/ 

ALLCiCTY 

=  F;  /-  REAL  -/ 

A.LLC$CTY 

=  i;  /-  CHAR  =v 

ALLCiOTY 

=  i;  /-  BOOLEAN 

-•'/ 

end:  /*  OF 

CASE  -/ 

APTRADDR  = 

APTRADDR  +  i; 

ADDRPTR  =  ALLOC iA DDR ; 

APTRADDR  =  TS^iPADDRi; 

APTRADDR  =  APTRADDR  +  6? 

APTRADDR  =  APTPADDR  +  1  +  RYTEPTRf^),* 

ADDRPTR  =  ALLOC  $ ADDR; 

ALLOC$ADDR  =  ALLOC$ADDP  +  ALLC$CTY; 

TEr^PADDRl  =  APTRADDR  ^  4=; 

end; 
end  alter$ppt^loc; 

/y*  ^'*  »V  *'•  •*?  *•'  *''  *•*  >•'  *■*  *'"  »•*  "'*  »'»  ^''  *'"  *-'e  »•'  *'*  ^'''  •••  *'*  V*  *'*  *'"  **'  «'*  *'*  *''  V'  V*  V'  *''  *''  ^''  V'  *''  ^''  *'  ^''  "'''  *'*  *'*  *'*  *  '  V*  *'*  5*' 
^*  »t*  ^1*  *^»  *l*  *j*  »|«  *|»  ^f*  *!■»  *|*  *^*  *|*  »,^  *,*  »|*  *l%  *,*  *|*  J|»  ^,*  *i»  J^*  *|»  *|*  *,%  »i«  *p  #1»  ^,»  ^*  *|*  *(•  *,*  •(»  *!*  ')■•  *|*  'i*  »i*  *l^  »,«  *,*  'i»  'i*  >|^  'i"  *i* 

=^  ENTER$SUBROUTINE  -  THIS  PROCEDURE  LOADS  A  - 

-  SUBROUTINE  ENT^Y  IN  THE  SYMBOL  TABLE.  TPE  - 

*  PARAf^ETER  NUMBER  LOCATION  IS  STORED  AND  T^E  - 

*  SCOPE  LEVEL  IS  IN  CRIMEN  TED  DY  ONE.  - 

#y*  •>•«  *,*«  y,»  %i^  «i«  %i<  *•*  •!*.  *»*  w»*  fci*  ,1^  »■,  »i,  »t,  ^,  ^1*  ^1,  ,1,  ,t,  «i«  »'*  -'*  »«-  ,•*  *"*  *•<  »<*  »•«  o*  *»*  s'*  •■'  ***  -'•  *•»  «.'-  »'-  »•*  >'-  o*  -'rf  '•*  »'-  ».''  -•»  / 
'i*  "^^  *i*  ^*  •^■»  'I*  'I*  n*  *"•*  1*  'I'  1'*  'T"!*  *r*  n*  '»*  *»*  '»•*  'i*  'i*  n*  'i*  i*  'i*  *v  'i*  'r  "i"'  'i*  '»•  i*  ^*''  '^''  *!■  '•■  'i*  i*  ***  'i"  *»*  i*  '•*  't*  '»"  'i"  'r*  / 

ENTER^SUPRTN:  PROC (A . ?  ,  ir$ENTRY  )  PUE; 

dcl  (a,b,id$entry)  byte; 

call  enter$var^id(0,  sp,  id$entry)  ; 

ie  not  present  then 

do; 

call  limits(4); 

PARAMNur^Loc  =  sbtbl; 

SETEL  =  SBTEL  +  3; 

CALL  SET$PAST^PN(1(^)  ; 

ADDRPTR  =  ALL0C$ADDR;  ALLOC^ADDR  =  ALLCC^ADDR  +  2 

CALL  SET$PAST^PN(14); 

ADDRPTR  =  LABLCOUNT; 

LAELCOUNT  =  LABLCOUNT  +  2', 

SBTEL  =  SETBL  +  6; 

IE    ID$ENTRY    =   FUNC$EiNTEY    THEN 
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do; 

S5TPL  =  3BT?I  +  i; 
5ND; 

end; 

else  dn;  /':*  forvapd  eunctiom  -/ 

call  set$past^pn(14); 

ie  id$entp.y  =  eunc$en?ry  then  tevpaldhi  -  aptha.ler  + 


3; 


«•«  *',  «*«  o« 


ELS^    TEMPALDRl    =   APTRADDR    +    2; 
CALL    SET$PAST$PN(1(^)  ; 
ACERPTR    =    ALLCC^ADLR; 
ALLOC$ADDR    =    ALLOC$AErR    +   2', 
CALL    ALTEP$i^RTiLOC; 

en'd; 

PARIAN  U?^LCC(  MP)    =    base; 

SCOPE(SCCPE$NUh    :=    SC0PE$NUN'  +  1  )    =    SBT"3L; 
END    ENTER ^SUBRTN; 

/&*#  «*'  V«  k*«   ^^  ^*  «'«    «>«  «(«  V«  ^*'  ^'  ^'   «l^  ^'^  >■*'  «''  •>*>   «*«  ^l'  «'*  «*«  «*'  vl^   ^JU   hi>«0«   >l#  0«  «)«   k'«  »t«  %1«   •>.■<•  •><«  *>^    »>'  ^>d 
1*  '1*  'r»  "I*  *i*  *»*  *i*  'I*  'I*  *»*  n*  't*  •**  *r"»*'  *»■■  1*  1'  '.*  i*  '1*  '»*  1*  '»■*  '1*  *i*'i*  '1*  '1*  'i'  'i*  *'»■»  'i"  'i*  '.■  *»*  '•*  't' 

/*  LOOKUP^ONL^    -    THIS    PROCEDURE    IS    PASSED    THE    -/ 

/«  POSITION   OE   A    IDENTIFIER    JUST   SCANNED    IN    -/ 

/«  THE    CURRENT    PROIUCTION     (    S?,^^P,MPP1     )    AND    -/ 

/*  PETUFNS    TRUE    IE  THE    IDENTIFIER    IS    FOUND    IN    -/ 

/*  THE    SYMBOL    TABLE.    ^^V 

/^«  »«*  «»^  0«  ^«  fcV  ***  >i*  V*  *»*  *•*  ^l*  *»*  >#-  *'*  *.'•  U*  •J*  •J*  *'-  *•*  J*  *»*  %•-  *<*  s'*  *■•*  «**  *•*•  »'*  *•'  •-'*  ■«.•*  ••*  »'*  *'*  •■•-  *•*  •*'*  -'-  •»**  *•*  *•*  »''  *'•  »'-  •«■'*  *•-      / 
*^*  'l*  •*!•  ^i*  *f»  ',■»  --,■*  >|*  -^o  'i'^  *,■♦  *,»  *,»  *,■•  *,*  *,*  -,%  *,■»  •!•  ',■*  *,«  -I*  *(*  1*  *»"*  •>■*  1*  '»"•  ***  'I*  'I'*  '>■■  'I*  'I"  'f  'I*   ''■  'I"  'I'  '1*  'l*  'l-  '»*  'I""  '»*  '»■*   'I'  •^■'    / 

LOOKUP$ONLY:    P^OC(A)    BYTE    PUB; 

DCL  A  byte; 

call  setlookup(a); 

base=h\shtable(symhase)  ; 

DO    VHILE    base    0    3', 

ii   chk$prt$name(6^  teen 
do; 
lookup$addr=base; 

RETUR^I  true; 

end; 
ELSE  do; 

CALL  SETADDRPTR(0) ; 

base=addrptr; 
end; 
end; 
return  false; 
END  lookup$only; 

/*.V  5*^  **•  *'*  *•*  '^  -^  ».•*  V*  •••  *•*  »'*  ***  **•  »•*  ***  »'■*  ***  V'  »**  **f  V*  »••  *'"  ***  ***  *•"•  ***  •**  •'*  ^**  ***  ***  ***  ***  ***  ***     / 
*|*  »|*  'I*  *|*  ^i*  J,»  *|S  r,«  Jj»  o^k  »,»  «|«  >,!.  *^»  ^^  ^1*  ^«  «|«  7|*  ^|«  #1*  ?,*  ^i*  *|*  *(*  i-f*  *(*  *4»  *l*  *i*  ?f»  *4«  *|*  *^  »|*  1*  'i*     / 

/-  THIS  PROCEDURE  CONVERTS  A  REAL  -/ 
Z'!'  NUMBER  IN  THE  PROGRAM  TO  A  BCD  -/ 
/=!'  REPRESENTATION.  */ 

/  *JC  J,S  5,C  5,»  5,'  ,,S  5,C  ^-^  JjC  J,S  5,J  ^X  ?,<  5,5  J,J  5,i  JJC  J,C  >,C  *|C  5,?  ^%  2,«  Jj*  ?!»  i,C  JjC  J,C  ^C  ^C  ;,i  5,C  J,C  ^i  5,!  ?,'  J,C  / 

convrtbcd:  proc(a,b)  pub;  /'-  a=s?/mp/mpp1 ,  3-pcs/neg  -/ 
dcl  (i,j,dflag,eelar-,s?lag,a,b)  byte; 
dcl  (n  based  pfintn ame  )  ( 1 )  byte; 
dcl  (exponloop.expsignloop)  label; 
call  setlookup(a) ; 
/-  initialize  variables  -/ 
selag=false;  eelag=tru2;  delag=true;  i=i; 
do  j=0  to  7;  bcinum(j)=0;  end; 
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j=0;  EXP0N=64;  /-  E+ee  -/ 

/-  RFf^CVE  L^ABLMC- 


Z  "^^  CS  '''/ 
Dn  WHILF  {(N(I  )  -  '^"')  =  2); 

i=i+i; 

IF  I  =  (N(e)  +  l)  THEN  SOTO  EXPOf'LOOP; 

end; 

/«  lcae  ecdnum  v.ite  significant  rigits  -/ 
do  whilf  ((n(i)  -  '0'  )  <=  9  or  n(i)  =  '.'); 
if  n(i)  =  '.  '  then 
do;  eflag=false; 
i?  i  =  n(0)  teen  goto  expoiuoop; 
I  =  I  +  i; 
end; 

FLS^ 
do; 

re  WHILE  J  =  0  and  dfl^g  and  ''n'D  -  'e')  =  0; 

EXPON  =  EXPON-i; 

IF  I  =  N(3)  THEN  GOTO  EXPONLOOP; 

1  =  1+1; 

end; 

if  j  =  (  bcdsize-1  )  then  go'^0  fxpcwlocp; 

if  eflag  teen  /-  first  bcd  pair  -/ 

do; 

BCDNUM(J)=T?OL((N(l)-'0')  ,4); 

dflag=false;  i=  i+i; 

IF  E^LAG  TEEN  EXP0N=EXPCN+i; 

end; 
else 
do; 

BCDNUM(J)=?CDNUh(J)  +  (M (I  )-'0'  ^ 

J  =  J  +  i;  I  =  I  +  i; 
dflag=true;  if  eflag  then  expon=expon+i: 
end; 

if  i=(n(0)+1)  then  goto  exponloop; 
end; 
end; 

exponloop: 

if  n(i)  =  'e'  trt^n  eflag  =  false; 
if  i  =  (n(3)+l)  then  goto  expsignloop; 
if  eflag  then 
do; 
do  while  n(i)  <>  '.  '; 

EXPON  =  EXPCN  +  i; 

I  =  I  +  i; 

end; 

I  =  I  +  i; 
end; 

DO  WHILE  I  <  (N(0)+1)  AND  (M(l)-'2')  <-  9  ; 

I  =  I  +  i; 
end; 

if  typentjm  =  realttpe  then  goto  expsigi^lcop ; 
/'^  N(n  =  E  -/  I  =  i+i; 
17   ttpenum  =  signed^fxpon  then 
do; 
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IF  N(I)  =  2l'r.    THF\'  SFLAG  =  TRU^; 

I  =  I  ^  1  ; 

I?  I  =  N('^)+l  THEN 

co; 

C^LL  IRHOP('EF'); 
HFTtj^N: 

end; 
dela:;  =  ?■; 

EO  J  =  I  TO  N(2); 

DFIA^  =  (EFLAG-10)+(Nrj)-'0'); 

emd; 

if  sflag  then  /-  exponent  calculatic^l  -/ 

expon  =  sxpon-dfla&; 
else  expon  =  expon  +  delag; 
expsignloop: 

bcdnum^ecr)size-l)=r0i(e,7)  ;  /-  sign  of  numper  -/ 
if  expom  >  127  then 
do; 

call  err0r(  'ee'); 

betupn; 
fne; 

ELSE  PCLMUr^(ECLSlZE-l)=ECDNUM(PCDSIZE-l)+EXPO\-; 

END  convptbcd; 

/  'i*  *i*  *i*  nr*  •»*  •i*  'i*  '(•*  '^-  'I*  ^1*  'i*  *»*  'I*  ^  'I*  ^1*  1*  '^^  n*  »i*  *i*  ^^  *i*  »i»  *i*  '(*  *»"•  -t"  'I*  »i*  '»*  -I*  *f  'x*  *»*  T  'r  'r*  •**  '^■*  'i*  *.*  *»*  t*  'i*  t*  n*  / 

/*  CONVERTI  -  THIS  PROCEDURE  IS  PASSED  "a",  THE-/ 

/-  LOCATION  OF  A  CONSTANT  IN  THE  PRODUCTION  -/ 

/-  AND  "P"  THE  'SIGN'  OF  THE  INTEGER.  THE  ^^V 

/-  FUNCTION  GENERATES  A  SIGNED  16  EIT  REPRE-  -/ 

/*  SFNTATION  OF  THE  NU^.BE?  AND  RETURNS  IT  IN  -/ 

/*  AN  ADDRESS  VARIAELE.  -/ 

/5*f  2*f  **f  i'*  **•  ■'*  *••  **'  "**  *•*  V*V'  ***  >*'-»•*  »)*  «J*  *l*  *!«  %'*  »<*  JU  *»*  ■»*<•  »•*■  *••*'"  *'•  ••'*  **•  «>'*  »'«  *'?  «•'  *•**'-  •*'-  »'*  fcl-  ^'<-  V-  *•*  O*  «•>  *'i»  «J-  »i-  ■»•*   > 
*f»  'l*  'I*  "l*  'I*  *|*  '»*  *|*'|»  'I*  *(**|^  1*  *^**t*-if,«  *j»  *,-*  ^,«  *,•  *,*  #,*  *j^  *»*  ',»  Vl*  'I*  'I*  'l*  '«-  'I'l*  'I*  't*'!*  '»•  'I*  't-  'I"  '(""1«  ^*  -.•  '.»  -i*  1'  'I*   / 

CONVFPTI:  PROC(A,B)  ADDRESS  PUB; 

DCL  d.A.T')  byte; 

DCL  (N  EASED  PRINTNAME ) ( 1 )  BYTE; 

DCL  NUM  a.ddr; 

CALL  SETLOOKU?(A);  NU^■,=2; 

DO  1=1  TO  N(0); 

if  (maxint/10)  >=  num  then 
do; 

IF  (MAXINT/ie)  =  NU"^  AND  (N(I)-'0')  >  7  THEN 

do; 

CALL  frrop('ie'); 
return  hw.; 
end; 

num=(num-':'10)  +  (n(i  )-'0'); 
end; 
ELSE  do; 

CALL  ERR0R(  'IE'); 

RETURN  NUM; 

end; 
end; 

if  e  =  pos  teen  return  nuf^; 
if  num  =  maxint  then 
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do: 

CALL  r^ROP('iF'); 

RETURN  NUM; 

RETURN  (  -  NUM); 
END  CONVERTi; 

/  *|C  »|C  «|«  *i>  3|*  3|*  *|*  *|*  5|»  J|%  *|»  *^*  ^P  *i%  *i*  J,»  ^|«  *|*  J|«  ^■w  ^|«  «|«  *|*  *|«  *|*  ^p  2|«  ^p  *|»  ^»  ^«  *i«  r^  »|»  <^*  *|*  *^»  »j»  v^  *(»  3|*  5,*  *|»  J,»  Si's  ^,»  *,*  ^^     / 

/*  CONVERT^CON'STANT  -  THI3  PROCEDURE  IS  CALLED  -/ 

/*  WITH  TYPENUM  SET  BY  THE  CALLER.  THE  NUMEER  -/ 

/*  MUST  BE  PC  I  iN  TED  TO  SY  "SP"  IN  T^E  PRODUC-  -/ 

/*  TION'.  T^E  PROCEDURE  RETURNS  VITH  "CONSTi  -/ 

/*  NUM^TYFE"  AND  "C0NST$VALUE"'  SET  IvITH  THE  -/ 

/*  NUMBER  IN  ITS  INTERNAL  FORM.  'V 

?,•  »,■»  *i5  #,*  #j*  3,»  «>,«  7^  •Y'  1*  'I'"  "^^  'i*  *i*  *i*  f*  'I*  •»*  1*  't"  *^*  'I'"  *C  '»*  *i*  1'*  'n  *i*  *i*  '1*  ^^  *»■*  *»*  1*  't*  *»*  *«"•  *f*  *i*  'i*  'v  't*  't*  '»*  'i'  't"  'i*  'i*  / 

convrt$const:  proc(a)  pub  i  /-  a  =  pos,neg  -/ 
dcl  a  ■pyte,int$addr  addr  j 
if  typenum  =  intfger$type  then 
do; 
int$addr=conveptl(sp,a); 

CONS T^ NUM $TYPE( CONS T$PTR )=I NTEGER^TYPE; 
CCNST$?TR=CONST^PTR+i; 

CALL  MOVF(  .INT^ADDR  ,  .CONST$VALUE(  CO.^  ST$  I  NDZ  )  ,?  PI- 
CONS Til  NDX=CONSTi  I  NDX +2  ; 

end; 

ELSE  do; 
call  c0nvrt3cd(sp,a) ; 

const$num$type(ccnst$?tr)=real$ty?e; 

CONSTiPTR  =  CONS'^$T^TR+i; 

CALL  rOVE(  .BCDNUM,  .CONST$VALUE(CONSTiIi\'DX)  ,BCrSIZE  )  ; 

const$indx=ccnstiindx-^dcdsize; 
end; 
END  convrt^const; 

/y*  ;*;  »**  y-  ***  *•»  v»*  »•»  »«-'  *'*  **-  •.»-  *•*  *•-  Ju  U>  «»#  *i*  *<*  *»-  ***  «*•  »u  *«*  ^»*  *p-  *•*  %»»  «.>*  »•*  »•*  %»-  *•*  »•*  *•*  »u  *'*  %•*  *•*  *i-  *»*  ••*  *i*  *'-  o*  *•-  .i*  »>*  / 
'i*  •»*  'I*  *!•  *^*  'I*  "i*  »,*  *t*  n*  "I*  »r  1*  *!*  'I*  '»■*  *«*  'I*  'r  i*  '»'  'i*  'i*  'i*  't*  'i*  '•*  'i*  'i*  'i*  'r  'i-  i*  'i*  *»*  'P  'i"*  '»*  'r  'o  'i*  ■'r  "t"  'i*  'i"  'i*  'i-  'i*  / 

/-  EN TFR$ cons  TAN T$N UMBER  -  AFTER  TEE  NEXT  ENTRY-/ 

/*  HAS  HAD  ITS  LINKS  ENTERED  IN"'^  THE  SYMBOL  -/ 

/*  TABLE,  THIS  PROCEDURE  ENTERS  TEE  CONSTANT  -/ 

/*  VALUE  INTO  THE  SYMBOL  TABL^  AND  SET  THE  '^ / 

/*  ENTRY'S  "form"  TO  THE  APPROPt?IATF  TYPE.  -/ 

/*X0  -.**  <J*  <kl«  «l>  ti^  «i«  «**  .1^  «><  «JU  «.•«  «•«  4k><-  «■«  .^o  ^«  «■«  «>*  kU  «•«  .U  «JU  «■«  '•.•«  «I««V  «*'  «'«  ^«  «'«  •«''  ->'  ■>*'  «*'  «'*  '^''  •>■'  «''  ^''  -*^  *■''  -**   "■-  «*«  -*•■  ■■*'  •'*'   / 
^•.  *i*  *,*»,■.  *p  -,**)*  *l^  *l<.  -p  *,«*i»  *,-  'i**!*  I"  'l*  n"*  'I*  'r  I'  'I*  1*1*  'I*  'l*'(*  'l*  •!*  'i*  *l*  *!'  1*  'I*  'I****  'l~  1*  *!*  ^I*  '<*»t*  'I*  '!•  'I*  'I"  'I*  'I*  / 

ENTP$CONSiNUM:  PROC  PUB; 

CONST$PTR=CONSTipTR-l ; 

if  const$num$type(const$ptr)=  integertype  teen 
do; 

call  setaddrptr(4:);   byteptr(0)=6  or  consientryj 

call  limits(2);   consti  indx=-con  st$  indx-2; 

call  move(  .constivalue(constiindx'-  ,s3tbl.2)  ; 

sbtbl=sbtbl+2; 
end; 
ELSE  do; 

CALL  SETADDRPTR(4);  3YTEPT?  ( Z  )=10''^  OR  CONSiENTBY; 
CALL  LIMITS(inDSIZE);  CONSTi INDX=CCN3Ti I NIX-BCDS  IZE ; 

call  m,ove(  .const$value(cons't'$indx)  ,sbtbl  ,bcds  i  ze  ) ; 
sbtbl=sbtbl+bcdsize; 
end; 
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ENL  entr^ccms^num; 

/'!'  ENT^?.$STPING  -  A?TEP  TFE  "LINKS "  AMD  "lOVr."    -/ 
/*  ARE  ENTERED  INTO  THE  SYMEOL  TABLE,  THIS  -/ 
/*  PPCCEDURE  LOADS  ANY  IDENTIFIER  ALONG  WITH  -/ 
/*  ITS  LE^JGTH.  (USED  WITH  CONSTANT  STRINGS  -/ 
/«  AND  CONSTANT  IIENTIEIERS  )  -/ 

/  *!*  *!*  ^1*  V  *i*  'i'  'I'  '•'  n*  *!•  V  V  *!*  'I*  *!»  'I*  'I*  V  'r  'i»  *!*  -i'  n*  't*  '»*  'I*  ^  'i^  -|S  *»•  •(•  ^*  V  *!•  'I*  n*  'r  *!'  'i»  'i*  *»*  •!*  -^^  'i*  ^*  '»*  'i*  n*  / 

ENTER^STRING:  PROC(A)  PUB,* 

DCL  (N  BASED  PRINTN AI^E  )  (1 )  BYTE; 
DGL  A  byte; 
CALL  SETLOOKUP(A) ; 
CALL  LIf^ITS(N(0)+l); 

CALL  ^'OVE(PRINTNAME,SBTBL,(N  (?)+!)  ): 
SBTBL=SBTBL+(N(^)+1); 
END  ENTERiSTRING; 

/  j,5  5|C  J,J  ifi  «fC  ^'  i|i  ifi,  ^  *.,*  J,-.  ;,c  ;,*  j,c  ;,c  ^*  i,;  ;,;  ;,c  5,c  *|C  3|«  3|C  ;,c  5,s  ;,;  ^^  i^i  ^i  ;,c  ij<  j,j  ^*  ^;  ;,c  *,c  ;[;  *•,»  >,i  ^Ji  jp  ;',;  jJj  jp  i^  ;,c  ;|c  ^« 

-  ENTERiCONSTANT$ID  -  THIS  PROCEDTIRE  ENTERS  - 

*  THE  FORM  EI  ELD  OF  A  CONSTANT  ENTRY  INTO  - 

*  THE    SY^:30L    TABLE.    * 

wu  «<«  O'  V  V'  V'  V'  V'  •*'  ^'^  V' V'  o'f  V'  '*''  «'"  •''  V'  ***  **^  ^'  *^'  «''  «*'  «''  «*' V'  V'  «''  *■'«  V'  «''  **'  «*'  ■^'  V'  V'  «*'  ■«''  ^''  ■«''  V-*  -^^  «''  «*'  *''  ^''  ^'^     / 

*|«  ^*  ^r«  ^|«  ^«  ^|«  J|«  ^(«  ^«  ^«  ^l«^p  ^^  ?,«  *l«  #l«  »f>  7|«  «^  V|«  #1^  ^«  #1%  ^»  #1*   ^«^*  ^4  «l«  «l«  ?|*  #^«  'I*  r^'>  tf^l  #,«    >i^  f*  ',«  ^<a  «^«  J^«  'l«  «,«  ^^v  r,«   ^^t  ^«       / 

SNTR$CONS$ID:  PROC{A,B)  PUE;  /-  A  =  POS/NEG  ,  B=f^P /^PPl /SP  -/ 
DCL  (A,B,C)  byte; 
C=P0L(A,6); 

CALL  SETADDRPTR(4) ;  BYTEPTR(Z)-C  OR  CONS^ENT^Y; 
CALL  ENTER$STRING(SP)  ; 
CONST^PNiPTR=CONST$PN$PTR-i; 
CONST$INDX=CCNST$INDX-CONST$PN$SlZSfCCNST$PNiPTR  '^  ; 

END  ■='ntr$ccns^id; 

-  ENTEPiCONSTANT$ENTRY  -  THIS  PROCEDURE  - 

*  DETERt^INES  'a/HICH  TYPE  OF  CONSTANT  ^NTRY  IS  - 

*  TO  BE  ENTERED  IN  T^-^E  SYMBOL  TABLE,  ANE  '-^ 

-  AND  CALLS  THE  CCRRESPCNDING  PROCEDURE  TO  - 

-  MAKE  THE  ENTRY.  * 

5'*  V*  *'*  V'  %•'  *'*  ***  V'  **'  V'  *'**''  V*  *''  »'■*  *''  V'  »'*  *•»  **'  *''  *'•  *'•'  ***  »**  *'«*■•  »'»  »•*  »'*  *'*  V'  *''  ***  V*  **'  ^''  *'*  *''  *''  *'*  i'f  ***  V'  ***  **•'  *'*  *'*  / 
1»  ^i**  *|«  1»  *|»  *|*  *,*  *,*  »|»  #1*  *,»  *|*  J,*  ^»  *l*  *!■»  /|»  *(■»  *!«•  *|«  »|»  *j»  ^f*  *^*  *,»  *(»*!*  *,*  »,•  *l»  *,»  Jj*  *|»  *(«  *,"*  »|*  *  *  *|*  *|*  *  *  ^«#l«  *(*  ^»  *1*  •!»  *,*  ^-^   / 

ENTR$CONS$NTRY:  PROC  PUE; 
VECPTR=VECPTR-i; 
DO  CASE  EXPRESS$STK(SP); 

/*  CASS  CONSTANT  NUMBER  -/ 

CALL  entr$cons$num; 

/*  case  identifier  constant  -/ 

call  entr$consiid(pos,sp); 

/-  case  signed  identifier  constant  -/ 

call  entr$cons$id(neg,sp); 

/*  case  constant  string  */ 

do; 

call  setaddpptr(4) ;  byteptr ( 3 )=16h  or  ccnsientpy; 

call  enter$string(sp); 

const$pn$pt?=const^pn$ptr-i; 

c0nstiindx=const$indx-c0nst^pn$size(const$pniptr  '  ; 
end; 

end;  /-  OF  CASE  C0NST$TY?E  -/ 

END  entr^cons^ntry; 
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/-  ENTR$CPLX$TY?  -  THIS  PROCEDURE  IS  -/ 

/-  CALLED  TO  ENTER  T^E  "LINKS "  AND  "FCRM"  FOR  -/ 

/-  THE  'COMPLEX  TYPE'  SY^iROL  TABLE  ENTRIES.  -/ 

/*  NOTE-  TF4T  THIS  ENTRY  NEVER  HAS  A  PRINT-  ^V 

/-  NAME  ASSIGNED.  -/ 

/*.»*  »••  O*  »V  •>*'  *'-  *•-  *''  -J*  *•*  ,1,  »>*  *t,  ^<^  »t*  *",  *i,  »>,  ^*  *V  *»*  *i*  O*  *t*  *'-  *l>  *t*  V-  *'*  ^*'  *•'  •»•'  *''  *^-  *•'  I*'  *'-  -^  -'*  »'■•  *'-  *''  •'*  »*■'  -'-  *•'  *'*  -•-   / 
-I*  *,>  *i-   -P,^  *,^  -,»  -•,*  ^-   *,*  *1»  -,»  1-  -^^  *,.  *,»  -f,»  -p.  *,-.  *^S  ..,•  -,>  *,»  *,-  ^*  -,-  ,,,  ,,,  J,»  ,,,  ?,x  ,,,  ,,,  *,,  ,,N  ,,.  ?,»  ,,,  ,,*  ,,,  ,j,  ,,,  ,,*  ,,•  *,,  ,,*  ,,»  ,,,  ^,*   y^ 

ENTP$CPLX$TYP:  PRCC(A)  PUB; 

DCL  A  pyte; 
call  li^its(5) ; 

base,aptraqdr=srtbl; 
addr?tr=(2^^3h; 
call  setaddrptr(2); 
ADDF RTF =p Rv is BT Gentry; 

PPViSRTiENT^Y=EASE; 

call  setaddrpth(4); 
byteptr(0)=a; 

3RT^L=SBTRL+5; 
END  ENTR^CPLXiTYP; 

/*  ENT^$STR$TYP  -  THIS  PROCEDURE  IS  -/ 

/*  CALLED  PY  THE  'TYPE'  PRODUCTIONS:  ■'■- / 

/*  1  .  SET  TYPE  -/ 

/-  2.  FILE  TYPE  -/ 

/':=  2.  POINTER  TYPE  -/ 

/-  IT  CALLS  ^iNTR$CPLX$'^YP  TO  SET  U?  ITS  -/ 

/-  "links"  and  "form",  then  IT  SETS  A  POINTER  -/ 

/-  TO^THE  ASSOCIATED  COMPLEX  TYPE.  -/ 

ENT^^STP$TY?:  PROC(A)  PUP ; 

DCL  A  byte; 

CUL  ^NTRSCPLX^T'YPCa)  ; 
CALL  LirlTS(2)  ; 
CALL  SETADDRPTR^e); 

addpptp=type$loct; 

SRT?L=S?T^L+2; 
TYPEiLOCT=RASE; 
END    T^NTRiSTPiTYP; 

/  *l*  'l"*  1*  *J*  ^l*  X'  ^^  *l'  'i'  'i*  *!*  *,*  5»*  "i*  ','  *»'  *iS  *i'  "l*  *»»  *,'  •!*  *»*  *!*  'i^  'l^  ^*  *l*  ■*,*  'l*  'l*  »»'  ^  *l*  '«*  '»*  '.■*  'l*  •>■*  'I-  'l*  *l*  '1*  'l"*  "t"  'i*  'I"  'l" 

=:.  ENTER$PARA^'ETER$TYPE  -  THIS  PROCEDURE  - 

'^'  UTILIZES  3  BYTE  0^  CODE  ^OR  EACH  SUBRCUT-  - 

-  INE  FARAMETER  THAT  VAS  RECOGNIZED  AND  PUTS  - 

-  THE  FOLLOWING  INFORMATION  IN  THE  SYMBOL  - 
'••  TA'^LE:  1.  TYPE  G"^  PARAMETER  •■'- 

-  2-3.  RELATIVE  LOCATION  OF  PARAMETER.  - 

*U  »•#  *••  *»*  *l*  ^1*  ,1*  O-  *t*  *l-  s»*  •».  »»*  *•-.  *»-.  *•-  *»-  *i-  *»*  »'-  *»-  *•-  *»*  *'-  *'*  »'-  ■-'-  **-  ***  ..'*  *"-  *»-  O*  *•*  »»*  *lj  v'.  O*  O-  *'-  y*  y*  3»-  *•;  »t;  %';  *•-  ;•*  / 

ENTR$PRM$TYP:  PRCC  PUB,* 

APTRADCR  =  PARAMNUMLOC  ^  i; 

ADDRPTR  =  SETBL; 

SBTBL  =  S3TBL  +  3-PARAMNUM  -  ? ; 

BASE  =  last^sbtbi^id; 

DO  WHILE  PARA^NUM  <>  C; 
CALL  SE?ADDRPTR(4); 
TEMPBYTE  =  BrTEPTRO)  ; 
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apthAedi?  =  spti^l; 

EY7E?TR(e)    =    TEMP5YTE; 
S3T3L   =   S3TBL    +    i; 
CALL    SiT^PASTiPNC^); 

TE"^^ArrH  =  aiirptr; 
APTPAPrp  =  sb'""^l; 

AEPPPTR    =    TE.^^PADLT?; 
SBTPL    =    SPTBL    -   4; 
CALL    SET*LDRPTP(?); 
BASE    =   ADCRPT^; 
RiRA^-NU^    =    PA^AMNLT    -    i; 

APTRADLP  =  PARA^'^aT^,LCc ; 

SBTPL    =    SF7BL    +   3- ( BYTEPTR (0 ) +    1): 

v^J)  ^NTP$ppy.iTYP; 

/«<*  *'*  »'*  •'*  *'#  ***  ••'*  O**!*  <k>««'«  *'»  «'o*i'  y*  v'^  v'«  -'-  »i*  Vrf  .»»*  *'*  »'jt  fc'*  «'««'#  »lrf  *«*»"*  *i*  ^<«  «)«  «l^  »■*  «i<  *l*  V^  «V  »'*  x' **.-»'-  «'*  %'^  «'*  »'*  *'o  *i-  *■*  *'- 

-  PARV$PYTES    -    THIS    PROCELURE    ENTERS    T"S    M UMBER    - 

-  CF   BYTES    OCCUPIEB    BY    A    'PAR^.'    B^CLAPATIGN    AS    - 
*    A    TKIRP   ARGUMENT    IN    THE    INTERMEDIATE    COPE.    '■' 

^«  ^^  «*«  0#  «!»  «>^  %t«  *.*«  «>«  %f^  0«  kV  «t«  »(«  «'«  «i*  %<«  «*•«>«  «'^  0«  «''  «'«  «'«  «l«  «■«  «*«  «t#  «■«  «■«  «'«  *.**  *.(«  «t«  ^«  «f*  «•«  «ir  «)*  «i«  «,V  «'«  ^'^  *)^  ^'>  >''  «*'  «'«  «*v  »*'   .' 

«)*  *1^  »1*  *,*  *,*  *!■•  ^j'*  *,»  »,»  ^|4  *^  rf%   *,*  *■,*  ^«  «l«  ^l«  ^l«  «|«  *,»  «|«  »|»  *(»  »j»  ^1%  *|*  »,*  #l«^l»  *,>  *!■■  »|*  *,*  ^p  *,«  *|*  «,<*  v,t  *,■.  *|»  *,%  *,»  «|V  *|»  *(»  *,**,»  #j«  *^.  *j»   / 

PARM$BYTES:    PROC(LCC); 

PCL  Loc   byte;    if  LOC=0EH  THE\' 
CALL    GS.NEPATF(e2H):    ELSE 
IF    L0C=13F   THEN 

CALL    GENERATE(2£H); 
EL*^  E 

CALL    GENFRATE(?1E); 
END    PARM$BYTES ; 

/  'C  "(•  'I*  'C  *!*  '•■*  'I*  'I*  'i*  *r  'i'  V  'I*  'i*  »i'  'I*  *»*  -i'  *i*  *»*  n*  *!*  'I*  'i'  *»'  't*  'i*  *>'  'r  '»*  *i'  'i-  't*  *i^  'i*  'i*  'i"*  'i*  'i*  n*  'i*  •"i*  'i*  ■"•*  'r  •»■*  'f  'i* 

-  BUILT^IMiPAPAMETSR    -   THIS  PRCCEPUR^    EiJSURES    - 

-  A    PROPF^    MATCH    UP   BETWEEN  TH^^   SUBROUTINE'S    - 

-  FORMAL    PARAMETERS    AND    THE  CALIINC-    ACTUAL    - 
*  PARAMETERS,    ^i' 

»i«  «■«  «i«  i»v  •Ju  «*«  *'••  %**  <jf  «*'  •.•««)«  •''^  «*'  ■>■'•'  <^'  «*'  '^'  «*«  «^  '«*'  'k*'«  t*^  •>''  «■'  ^'^  «'ff  >*'  «*«  >'«  V' «''  «*«  -*'  «'•  <^'  *■''  ■'''•  't''  '>''  '«*'*  o*'  <J'  -*'■  ^''  -*'  *'''  ■*'  / 
'»"  '^*  ^»"»'i*  *i»  'I*  'I*  ^i-*  **i*  'i*  'i"?!"  'I*  n*  'I*  •^■»  'I*  'I*  *!*  -I*  'I*  'I*  n*  'i"  '••*  '1**^  'I*  '1*  "i"  ^*  't- 1*  'I*  'i"  'r  'r  '»■•  'i*  'r  i"  'i*  'r  'i*  '•*  '•"*  '»*'»*  / 

BUILT$IN$PARM:    PROC    PUB; 

APTRADDR    =    PARMNUMLOC (SP  )  ; 

BASE  =  aptrallr; 

IF   BYTEPTR(e)    =   13H   THEN 

do;    /-    C^ECK    FOP    INTEGER    OH    REAL    INPUT    -/ 

IF   NOTf ((SHL( (BYTSPTR(0)    AND   F0RMMASK),3)    OR 
VAR$ENTRY)= 

(FORM^FIELD(SP)    AND    7FR) ) 

OR    (  (ROR(  (BYTEPTR(e)    AND    7eH\l)    CR    VA^iENTRY^^ 

(FOPM^FIELD(SP)    AMD    7^^.)))    THE'l 

CALL    ERROR (  'IP'); 
ELSE 

do; 

CALL    GEN$ADDR(?ARM,PRTiADrR  (S?  )  )  ; 

call  parm^bytes(byte?tr(0u  ; 
end; 
end; 
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I?    EYiEPT^(0)    =    eF3E    THEN 
do: 

II    SFP.(5'0R^^<II5:LE(SP),3)    =    23H    THEN    /=;=    CAN'T    BE    -/ 
CALL   ERROR ( 'IF'); 
ELSE 

ro; 

CALL    C-SN  $  Air  R(  FARM,  PRT$ArrR(S?)); 

ci^ll  parm$^ytes(byteptr(0}); 

end; 
end; 
^LSE  do; 

IF    NOT(  (SHL(CBYTEPTRO)    AND    EOPi^MASK )  ,3 )    OR 
VAR$ENTRY)    = 

?ORr^iEIELD(SP)  )    THEN 

CALL  erropCip'); 

ELSE 

do; 

CALL  r-E\'$ADrR(?ARM,PRT^ADrR  (5P  )  )  ; 
CALL  PARM$BYTSS(BYTEPTR(el ); 

end; 
end; 
emd; 

p\rmnu^l0c(3p+2)  =  par^mumloc(sp)  +  i; 
if  s^r(^or!^$fisld(sp)  ,7)  tfen  call  generate  (lcd  i  ) ; 
EML  ruilt^im$parm; 

/  v'*  *•*  V*  »•*  »<*  ^'*  *•-  »>*  s'-  *i-  *'*  *<-  ».»•  «'*  *l*  -'-  *<*  ,t-  *'*  -•*  .1*  *t-  »•*  *•-  >'*  »•*  *<*  *'*  O*  »'*  .'-  ,'*  *•*  *»*  *.■*  %•*  ».'-  .'-  -■*  *»*  -•*  *»*  ->*  »'-  ^'-  -'*  »'-  «'- 

-    ASSIC-N^PAPAi^^ETEPS  -   THIS    PROCEDURE    ENSURES    - 

*  A    PROPER    MATCH    11?  BET'aEEN    THE    SUBROUTINE'S    - 

*  FOR[^«L    PARAI^ETEPS  AND    THE    CALLING    ACTUAL    - 

*  PARAr^ETERS.    ^•= 

ASSIGN$PARMS:  PPOC  PU^; 

if  sign^flag  then  , 

do; 

if  f0rr^$field(mp-3)  =  ^uilt^  in  ^func  then 
CALL  ruilt^in^parm; 
end; 
else  if  ^0r^^$field(mp-2)  =  luilt^in  $fun  c  teen 

call  built$in^par^^; 

aptraddr  =  parmnui^iloc  (  sp  )  ; 

base  =  aptradd^.; 

if  shr(byteptr(0) ,7)  then 

do; 

if  (t5tteptr(0)  and  7fh  )  =  form^  ?!  eld(  sp )  then 
/-  this  is  a  variable  parameter  -/ 
call  gfn$addr(pahmv,prt$addr(5?)  ); 
else  call  f^^ror  (  '  ip  '  ) ; 
ENi; 

ELSE    do;    /-    T^IS    IS    A    V»LUE    PaHAr^FTSR   -/ 

if  (byteptr(eo  =  f0^m$field (sp  )  ) 
or  (byteptr(0)  =  (form$field  f  sp )  and  7fhn  then 
do; 
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CALL    (>FN$ArEP(PARi^.  ,PRTnDI3T^(S?)  )  ; 

call  parr^^t:ytes(eyt3ptr(3)  ); 

^lss  call  irfor( 'i?'); 
end; 
parvnuml0c(sf+2)  =  parmnuml^c ( sp )   +  3 ; 

RFAD^PAR'^S    =    TPUE; 

end; 
end  assic-^i$far^^s; 

/  *i*  *i*  *!*  'I*  't*  'I*  't'  ^^  *!*  'I*  \*  'I*  '»'  ^'  *!*  'r  'r  'i'  '»*  'r  '»^  *»'  n*  *»*  '»'  -•*  'i*  \^  '»•  V  *»'  'i*  'i*  '»*  n*  'r  'r  »i'  »i^  'i'  V  *»*  '.'  'i'  'i*  't'  '«*  'i*   / 

/-    LOO?UP^IDENTIFIER    -   THIS    PROCEDURE    IS    CALLED-/ 
/-    WITH     'SY^^HASE'    AND    PRIMTNA^F    SET.     IT    '/.ILL    -/ 
/-   RETrPN    "^RUE    IE   THE    IDE^ITIFIER    CAN    ^E    FOUND    -/ 

/  *,'  >,i  J,c  7,'  *,J  J,'  jjt  J,<  *.,*  Si'  ^;  ^<  ,,'  ^,j  sjc  ^^i  i\t  5,c  5|c  5j*  »,s  3|j  ;Is  ;,c  ;|c  ^;  ;|c  sjc  3^  ;,?  5[t  j|<  ^s  s,;  ^j  i\t  iji  5,s  2^  Jj*  Jji  ?Ii  ^c  5,'  5jc  *\i  Jji  ^c  / 

lookups  i  dent:  prog  byte  pub; 
basf=fase't'a3le(sym.hash) ; 
do  vhile  (base  <>  2)   ai\d  (sbt^l  >  scope  (scope^^■u^■ ))  ; 

if  chk$prt$name(5)  teem 

do; 

LOOKUP iADDR=BASE; 
RETURN  true: 

end; 

ELSE  do; 

CALL  SETADLRPTRd?)  ; 

base=addf?tr; 
end; 
e^id; 
R'^TURN  false; 

END  LOOf:UP$IDEN'T; 

/-  LOC"^UP$PRINTNAM^$ONLY  -  THIS  PROCEDURE  SET?  -/ 

/-  THE  "SYmhASH"  AND  CALLS  LOOKUPilDFNT  TO  -/ 

/-  DETFR^.INE  II  THE  ENTRY  IS  IN  THE  SYMBOL  -/ 

/-  T4BLF.  THE  ADDRESS  OF  THE  P^INTiNA^^.E  IS  -/ 

/-  PASSED  AS  A  PARAMETER.  IF  THE  ENTRY  IS  -/ 

/*  FOUND,  TRUE  IS  RETURNED.  -/ 

/   *|*  »|*  *|»  »!*  ^»  *(»  »l»  *l*  *|^  *|»  «|C^«  *l*  *|»  *|%  *|*  *|>  ^>  *j»  *l*  *(*  5|%  »(«  •^^  *^^  ^««l>  *|»  *|*  *|*  »)»  *|»  *|»  ^i*  *|»  *|%  '  i»  »l*  *!«  j'l'"  "fj*  *|«  *|*  *,•«  *|*  '(■»  *(»  *|*  J 

LOOEUP^PNAME:  ?ROC(A)  ^YTE  PUB; 

DCL  A  ADDR;  /'■•=  ALDR  OF  ^^RINT-NAI^E  -/ 
DCL  B  ^YTE,(N  BASED  A)(l)  BYTE; 
HASHCODE=0; 

DO  p=i  TO  N(e); 

hashcodf=(eashcode+n(b))  and  eash,^:as:-:; 
end; 

SYV!FASH=HASHC0LE; 

printna>^e=a; 

RETURN  LOOKUP$IDENT; 
END  lOCKUFiPNA>*E; 

/-  STOPE^CONS'^ANT  IDEN'I'IFIFR  -  THIS  ROUTINE  IS  -/ 

/*  CALLEF  VI TH  PRINTNA^E  SET  TO  LOAD  AN  -/ 

/-  ID^NTI^IER  IN  THE  'CONSTANT  "ALUF'  ^'ARIABL^.-/ 

'I"  '1*  't*  *»*  '1-  'i*  'i*  'I*  't*  »,*  »!■•  '»•  »i»  *:-  »»•*  *■»»  *|*  '!■•  *%»  yi"  *»»  't*  'I*  *»-  *!■•  I"  »i-  'I-  'i*  '\»  *!■*  'i'  't*  1-  'i-  'i"*  "^^  -."'  »<■■  1*  "t"  *»■•  I''  'I'  't*  '1*  'i*  '^^  *t*  / 

STORE$CONST:  PROC  PUB ; 


134 


ECL    (N    PASEL    PRIN-TNAK^E)  (1)    EYTi; 
CALL    SETL^C^U?(SPy; 

CALL    r0VF{??lN'TNArE,  .  CO^JSTi  VA  LUE  f  CON'S  Ti  INDX  )  ,  iH^Z  ] 
CCNST^IMrx=CCi\iSTiINLX  +  (^l  (0)+l  )  5 
CCNSTiPN^tT./^SE(cC^STiPNi?TP)=SYr',HASE: 
CONST<^N^SIZE(CCNST^PiM$?TR)=N(e)+i; 
CONST^P^l$PTP=CONST$PN$PTR-^l; 

END  sto^e^const; 

ENL    SYiYPOL; 


+i:) 


7C. 


S  Y  ^'  T  H 1  .  S  ?.  C 


^PAGE'A'IETF(£2)  TI  TLF  ( 'SYNTEl  -  PP.OrjCTION  PP.OCSrUF.ES  '  ) 
SYNTHl:  lO; 

DFCLAP?  LIT  LITERALLY  'LITERALLY', 
LCL  LIT  'DECLARE', 
EXT  LIT  'EXTERNAL', 
POS  LIT  '0', 
\'EG  LIT  '1', 


■Tl  ' 


PROC  LIT  'PRCCEEURS 

TRUE  LIT  '1 ', 

ADDR  LIT  'AEERESS', 

FALSE  LIT  '?', 

STi»T^STZE  LI'^  'ADERT^SS', 

PUILT$IN$FUNC  LIT  '^DH';  DCL 

PS  TACKS  I ZE  LIT  '48',  /-  SIZE  OF  FAR 

EASHT3LSIZE  LIT  '12R',  /-  SIZ^  07  ?. 

^CCSIZE  LIT  '8',  /-  BYTES  USED  EOP 

MAXiNEST  LIT  '3',/''-^  r^AX  LEVEL  0^  NE 

f^AX$4?PY$EI[^  LIT  '5',  /-  ^'AX  ARhY  D 

FORMrASK  LIT  '?',/-  USED  T^  EETFRMI 


SE    3 

ASET 
RCE 
STS 
ir^EN 
NE    F 


TACKS 
ABLE 
VALUE 
FOR  T 
SIOMS 

opr'  T 


s  -/ 

YFES 
'•V 

YPE  = 


/-  EOR'^  ENTRIES  -/ 

LA^Li^MTRY  LIT  'Z', 
CONS^ENTRY  LIT  'l', 

TYPE Gentry  lit  '2', 

VAPiENTRY  LIT  '3',' 
FUN C$ EN  TRY  LIT  '5', 
TYPF^DCLE  LIT'  '7'  , 


/-  N'UI^BFR  TYPES  'V 

ORE^TYPE  LIT  '2' 
IN'TEGER^TYPE  LIT 
CEAR^TYPE  LIT  '2 
UNSIGM$EXPCN  LIT 
SIGMED^EXPGN  LIT 
BOOLEAN' $TYPF  LIT 
REAL$TYPE  LIT  '2 
CO^PLEX$TYPF  LIT 
STRINCr-^TYPE  LIT 


'4'. 
'5', 


*=  » 


REJECT 


/*  KANY  OF  TEE  FOLLOWING  VARIABLES  CAN  EE  REPLAC^E 


BY 

ARRY^ 
DISP$ 


-/  E 


r  T 


MAKING  USE  OF  THE  PARALLEL  P-*RS£  STACKS 
EI^^^L0lvVAL(25)  .»EER  EXT,  ^RRY$E  Ii^.$  EI  VALf  2f  )  AEER  EXT, 
VFC(2e)  ADER  EXT,  ARHY$0?FSET  AEDR  EXT, 
CONST^PTR  BYTE  EXT, 


CONST$TYPE  BYTE  EXT 
VECPTR  BYTE  EXT, 
TYPENUM  BYTE  EXT, 
STARTBEOS  AEER  EXT, 
r^ax  BASEL  STARTBEOS 
TYPF$LOCT  AEER  EXT, 


/-AEER 

ADER  , 


OF  PTR  TO  TO?  CI    ELOS-/ 
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Vk2t 
4  LOG 
ArRY 
VAR$ 
V  4  P.  $ 
ALLC 
FAR2 
CONS 
LOOK 
CC.NS 

CON'S 
CONS 
P'TE 
SITPR 
SUER 
SU^R 
STTB$ 
SUER 
SIGN 
ARRY 
ARRY 
ARRY 
PTRP 

REC$ 
VARI 
N  U  ■*'  - 
ARRY 
CONS 
ARY$ 


pTTj    BYTE 
EASICTYP 


EXT, 
BYTE 


^CTY(i^:Ay^APPY$EUO    ADTvP    EZT  , 

PASEde)    APLR    FXT, 

BASEKie)    ADDR    EXT, 

$OTY    ACr^    EXT, 

NT$TYPE  ADIR  EXT, 

'^$INDX    "BYTE    FXT, 

UP^ALDR    ADDR    EXT, 

T$VALUEfl6)    BYTE    EXT, 

T$PN?HASE(4)    BYTE    EXT, 

TiPN^PTR    ^YTE    EXT, 

T$PN<SIZE(4^    BYTE    EXT, 

GER$riEF  ADDF  EXT, 

^VAL(2)    ADDR    EXT, 

$TYFE(2)    BYTE    EXT, 

iPTR    BYTE    FXT, 

TYP^ADLPd)    ADD^    EXT, 

iFORM    BYTE    EXT, 

VALU    BYTE    EXT, 

^BASE   ADD?    EXT, 

$PTR    BYTE    EXT, 

$Dir.$PTR  BYTE  EXT, 

TR  BYTE  FXT, 

VAR<TYP(^AX$NEST )    BYTE    EXT, 

NST    BYTE, 

ANT$PART([^AX$NEST)    ^YTE    EXT, 

ARRY^Iiyd^AXiARRY^n^)    RYTE    EXT, 

$DirEN(?e)    ADDR    FXT, 

T$^JU^'$TYPE(4)    BYTE    EXT, 

DM^AIR^FTR  BYTE  EXTT 


DCL  BCDfJUr':(BCDSIZE)  ^YT7  EXT 
SCO?E(10)  ADDR  EXT, 
SCO?E$NLT  BY'^E  EXT, 
TE^'.PRYTE  BYTE  FXT, 
TEMPBYTEl  BYTE  EXT, 
TE^'PA^DR  ADDR  EXT, 
TEMPADDPl  ADDR  ^XTJ 


DCL 


^V 


COUNTERS  -/ 


CODES  I Z 
ERPORCO 
ALLOC$A 

WRITERS 
READ$ST 
NFW$S"M 
DISPOSE 
ALLOCAT 
YARPARM 


READPAR^,S    BYTE    EXT,    /-    READING   ACTUAL    PARAMTERS    -/ 


E    ADDR    EXT, 

/-    COUNTS    NUMBER    01 

'    LABELS    -/ 

/ 

UNT   ADDR    EXT 

,    /-    COUNTS 

NUMBER 

OF    ERRORS 

''V 

DDR   ADDR    EXT 

,    /-    COUNTS 

PRT    ENTRIES    -/ 

FLAGS    USED 

DURING    CODE 

GEiJEFA^ 

:iON  -/ 

TMx    BYTE    EXT 

,    /-    IN    \vRITE    STATE^F^•T    -/ 

y:T    BYTE    EXT, 

/-    IN    READ 

STATEMENT    -/ 

T    BY'^E    EXT, 

/-    GF'^S    NEW 

RECORD 

-/ 

iST^T    BYTE    E 

XT,    /-    DISPOSES    OF 

RECORD    -/ 

E    BYTE    EXT, 

/-    ^PT    LOCATION    AS^ 

aCNED    -/ 

BYTE    EXT  ,    / 

-    FORMAL    ?4^ 

'AM    IS    V 

'ART  ABLE    T': 

'?! 

137 


*/ 


^?.ES5NT    EYTE    EXT,    /-    ITENTiriER    IS    IN    SYi^B^L    TAPL' 


/=!'    GLOBAL    VARIABLES    USEE    BY    T^'E    SCANME?    -/ 
TOKEN    BYTE   EXT,    /-    TYPE    OF    TOKE^J    JUST    SCANMET    ^V 

/-    GLOBAL    VARIABLES    USEE    IN    SYMBOL    TABLE 
OPERATIONS    -/ 

BASE    ADDR    EXT,    /-    BASE    LOCATION    OE   E^ITRY    '-/ 
HASPTABLE(^ASHTELSIZE)    ADDR    EXT,    /-    HASHTAt^LE    A^PAY 

SBTBLTOP    Air?    EXT,    /-    HIGHEST    LOCATION    OE    SY^PCl 
TABLE    -/ 

SBTBL   ALDR    EXT,    /-    CURRENT    TOP    OE    SYMBOL    TABLE   -/ 

APTRALLH   AILR    EXT,    /-    UTILITY    VARIABLE    TO   ACCESS 
SBTBL   -/ 

AEDRPTP    BASED    APTPALDR    ALL?,    /-    CURRENT    2    BYTES 
POINTEL    AT    =V 

(BYTEPTP    BASED    APT?ADDR)(l)    BY^E,    /-    CURRENT    BYTE 
POINTED    AT    -/ 

PRINTNAr^S    ALDR    EXT,    /-    SET    FRI^R    TO    L^OKHP    OF    ENTER 

SYNiHASE    BYTE    ^^XT ,    /-    HASH   VALU^    OE   AN    IDEMTIEIEF    -/ 

LASTiSBTBL^ID    ALDR    EXT,    /-    ^OLD    PREVIOUS    BASE 
LOCATION    -/ 

PARAMNUKLCC    ADDR    EXT,    /-    STORES    POINTER    TO    PARA^ 
LISTING    -/ 

SETELSCCPS    ADDR    EXT:    /-    BAS^    0"    LAST    ENTRY    I  \' 
PREVIOUS    ^LCCK-/ 

DCL   BUILT^IN$TBL(12)    BYTE    EXT; 

/-----*---? A RSER  VARIABLES -=:==:=------/ 

DCL  PARMNUr^(PSTACK3IZE)  BYTE  EXT,  /-  MAINTAINS  ^'U^BER  ri? 
PARAMETERS  ASSOCIATE!  WITH  A  SUBROUTINE  -/ 

LABELSTACK(PSTACKSIZE)  ADDR  EXT,  /-  TRACKS  STATEMENT 
LABELS  -/ 

?ARMNUMLOC(FSTACKSIZE)  ADL^  EXT,  /-  MAINTAINS  TEE 
LOCATION  IN  SYMBOL  TBL  WHERE  PARAMETER  INiC  STORED  -/ 

BASE$LOC(PSTACKSIZE)  ADDR  EXT,  /-  STORES  T^-^E  SYMBOL 
TABLE  AEDRESS  OF  THE  PERTINATS  ENTRY  '"-V 

EORM$EIELD(PSTACKSIZE)  BYTE  ?XT ,  /-  STORES  TUE  EOPM 
EIELD  OE  SCANNED  IDENTIFIERS  -/ 

TYPE$STACK(PSTACKSI7E)EYTE  EXT,/=:=  HOLES  A  VARIABLE'S 
TYPE  -/ 

EXPRESS  iSTK(PSTACKS  I  ZE)BYTF  EXT,  ,/-  CONTAINS  T?E 
TYPES  OF  THE  EXPRESSION  COMPONENTS  -/ 

PRT$ADDR(PSTAC'-^SIZE)  ADDR  EXT,  /-  STORES  AN 
IDENTIFIER'S  P^T  LOCATION  -/ 

PAPAIN UM  B/TE  EXT, 

(SP,MP,MPP1)  BYTE  EXT; 

REJECT 

/-    MNEMONICS    FOR    PASCAL-SM    MACHINE   -/ 
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rCL  NOP  LIT  '0',ENrP  LIT  'l',LBL  IIT  '2\llll    LIT  '3', 
LDII  LIT  '4',PF0  LIT  '.^',HTN  LIT  '6',S^VP  LIT  '7', 
UN3P  LIT  'e',CNVE  LIT  '9',CNYI  LIT'l^'.ALL  LIT'll', 
LITA  LIT'12',^rLP  IIT'lo'.^TLI  LIT'14',SUPP  LIT'l£', 
SUEI  LIT'ie',MUL-D  LIT'17',f':TJLI  LIT'18',DIV3  LIT'19', 
LIVI  LIT'20',wCLX  LIT'21 ',1^011  LIT'22',NE0I  LIT'23', 
LPOI  LIT'?4',CrP0I  LIT'25',LSSI  LIT'2e',QRTI  LIT'27', 
TIN  LIT'26',ECL?  LIT'29',NPC^  LIT '30 ', LEO?  LIT'ol', 
GPOB  LIT'32',LSSE  LIT '33  '  ,C-PTB  LIT'34',EQLS  LIT'35', 
NECS  LTT'3e',LE0S  LIT'37',GE0S  LIT'3q',LSSS  LIT'39', 
(;PTS  LIT'4:0',ECSET  LIT '41 '  ,  NFQST  LI  T '^2  '  ,  INCLl 

LIT  '43  ' 

INCL2  LIT'44',NEaB  LIT'45', 

NEGI  LIT'4e',C0r?  LIT'47',C0ri  LI"'46',NCTX  LIT'49', 
AMLT  LIT'Se'.^OR  LIT'5l',STCP  LIT'52',STri  LIT '53', 
STO  LIT'54',STr3  LIT '55 '  ,STE r  LIT'se'.STP  LIT'57', 
UNION'  LIT'58',STriE  LIT'59',IS^C  LI  T 'd0  '  ,Ci\  a  I  LIT'll', 
BRL  LIT'62',BLC  LIT'63',CM2I  LIT '64  '  ^^KSET  LIT'65', 
XCHC-  LIT'66',PAHM  LIT '67  ' .  PAP.YV  L  IT '63  '  ,PAP^.X  LIT'c9', 
INC  LIT'70',D^C  LIT'71',D^L  LIT'72',V.RT  LIT'73', 
SrP  LIT'74',LrSI  LIT'75',XASS  LIT'76',L0L  LIT'77', 
LOr^  LIT'7a',L0DI  LIT'79',RrVB  LIT '8^  '  ,PLVT  LIT'3l', 
PDVS  LIT'62',V-^TB  LIT '63  '  ,'aPTI  LIT '84  ' ,  \^RT3  LIT'cS', 
DU^^  LIT'ee', APS  LIT'67',SCR  LIT'-8',SIN  LIT'89', 
COS  LIT'9(^',APCTN  LIT'91',EX?  LIT'92',LN  LIT'93', 
SORT  LIT'94',0rD  LIT'95',E0LN  LIT'9e',FXy  LIT'97', 
TRUNC  LIT'98',R0UNr  LIT'99',0RE  LIT  'l'?0',CER  LIT 

'101'. 

SrCC  LIT'102',PREP  LIT'103',SEEK  LI T ' 1^4 ' , PUT 

LIT'105', 

GE7  LIT'106' , RESET  LI" 'l^7  '  ,RE'''PT  LIT'll? ',  ^AGE 

LIT'139', 

NEV-  LIT'lie',ri5PZ  LIT'lll  ',El',r  LIT'112' ,XTPNL 

LIT'113', 

RCV  LIT'114'; 

$EJECT  ERROR :PROC(ERPCOrE)  EXTERNAL; 
DCL  ERRCODE  ADER; 

END  error; 

L00KUP$ONLY:^R0C  (A)  BYTE  EXTERNAL; 

DCL  k   byte; 
END  lookup^only; 

MOVE:  PROC  (SOURCE .LESTIN ,L ^  EXTERNAL; 
DCL  (SOURCE, DESTIN)  ADDR , 

L  byte; 
E^iD  r^ovE; 

SETADDRPTF:  PROC(OFESET)  EXTERNAL; 
DCL  OEESET  BYTE; 

END  setaderptr; 

M0N3:PR0C    EXTERNAL; 
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EMC  ^:0N3; 

LII^ITS  :P^OC  (COLTNT)    FXT^HNAL; 

DCL  coui\'T  byte; 
FND  limits; 

ENTF$CPLXiTYP:  PROC  (A)  EXTERNAL; 

rcL  A  byte; 

END  ENTR$CPLX$TYP; 
SET^PAST^PN  :PR0C{0FESET)  EXTERNAL; 

rcL  OFFSET  byte; 

END    SE'^$PAST$PN  ; 
LO0KUP^PNAME:PR0C(A)    BYTE    EXTERNAL; 

rcL  A  ailr; 
END  looku?$pname; 

GENERATE :PR0C(OBJC0DE)  EXTERNAL; 
DCL  OBJCOL'E  BYTE; 

END  generate; 

GEN^ADDR:PPOC(A,B)  FXT^^RNAL; 
rCL  A  BYTE,  B  ADLR; 

END  gen$addr; 

ASSIGN$PARMS:PR0C  EXTERNAL; 
END  ASSIGNS? arms; 

ENTE?iVAR$ID:PROC  ( A  ,B  ,  ID$ENTRY )  EXTERNAL; 
DCL  (A,B,IDiENTRY)  BYTE; 

END  enter$var$il; 

ENTEKiLABEL:PROC  EXTERNAL; 

END  ente^$label; 

ENTR^FRMiTYPrPROC  EXTERNAL; 
END  ENTR$PRM$TYP; 

PRINTCHAR:PR0C  (CHAR)  EXTERNAL; 
ECL  CHAR  byte; 

END  printcear; 

CRLF:PROC  EXTERNAL; 

END  crle; 

PRINT$EEROR:PROC  EXTERNAL; 

END  ?rint$error; 

WRIT$INT$FILE:PROC  EXTERNAL; 
END  WRITilNT^T^ILE; 

MOVE$SETBL:PROC  EXTERNAL; 

END  move^sbtbl; 
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CLCSE^INT$yiL:PPGC    FXT^pNAi; 
END    CLOSEilNTiFILI 

PRINT  :PRGC(/^)    EXTERNAL; 

DCL  A  addr; 

END  print; 

LOOKUPS ITENT: PROG    BY^E    EXTERNAL; 

iHD  lookup$ident; 

REJECT 

INIT$SYiNTH:    PROG    PUBLIC; 
GODESIZE   =    3; 
SETBLT0P=^^AX-2; 
VECPTP=0; 
CONST$PTR=^; 

coNST$iNrx=0; 

GONST$PN$PTR=0; 

SUBR$PTR=0; 

ARY$rr$ArR$PTR=-i; 

ARRY$PTR=-i; 
VARIANTi?ART(e5)=FALSE; 
ARRY$OTYf0)=0; 
ALLOCS  4 DDR=0; 
ENL    INIT$3YNTF; 


/vO  0»  ...t*  «•«  «f^  -.f^><«  O,  ^n-   «>«  «)««•.•  «i«  .i«  ..■«  .t.^^  ^,  ^1,  ,1,  .1,  1^  «.-««i^  ^,   «>«.■•  «<,  «•>  «i.  «*«  «>>«(«  «■«  ^'^  ^,   .<>«<«  «i.  *>^  .v-sV  ,i«  >'«  ^'^  ■>>«  .'««U 
n"*  '^-  'I*  'I-  *^'  ^>  *t*  '*•*  n*  T"  'I*  *r  *i*  *»*  *>■•  1*  1*  't*  T*  »k*  *i*  *i*  'I*  1*  *i*  '1*  n*  1*  'I*  *»■•  1"  '1*  1-  1"*  'I*  'x-  '1*  '»•  I*  'i"  'I*  't*  '1*  '1*  '»*  1"  ^f*  'c 

^*    SUBRANGE$ERROR    -    THIS    PROGEDUFE    IS    GALLED    * 
-    IN    THE    EVENT    OF   AN    IMPROPER    VALUE    IN    A   - 
*    SUBRANGE.    * 

"t*  ■*!*  1*  '1*  *l^  *!*  -l"*  »|*  '1*  ^t*  ^*  'I*  *)*  "r  ^  *!■*  ^-  "t*  *l*  't*  '»*  *!*  •!■*  •»*  '1*  "^^  •!*  '.*  'l^  1*  'I*  *!'  n*  '1*  I"*  T"  -I-  *»■*  *%*  'l*  •>•'  *!*  *»*  't*  »l*  't"  1*  'l*  / 

SUBR$ERROR:    PROG; 

GALL    TrRBOR(  'IS'); 

SUBRiTYPE(SUBR$PTR)=INTEGER$TYPE; 
SUBRiVAL(SUBR$FTR)=000kiE; 
END    SU3R$EPRCR; 


/•^  *■**  «''  •>('  «''  k'»  OU  «V  «''  ^'  «^  ^'  «*'  «'««(«  *^  ^l*  «'«  *W  «(«  •»*«  OU  «l«  ^U  •>''  «■«<.**  «■<•  V  >^  V'  *^'  ^''  ^'  ^'^  ■'*'  ^'*  ^''  «''  ^'i'  "*'  ^**  «'*  ^''  *^  ^''  «*'  ^"^ 
*!**  '(*  '|»  'I'*  *(■*  *|-i  *|*  ^,^  *^  *l*  «|«  *p  »(*  ?,*  »!*  *|^  #1*  •p  rfm   ^»  *|»  ^*  *|»  *,»  >|»  *|»  *(»  *p  ^|*  ^1*  *|»  *|*  *|*  *,»  'i-"  #|^  '|»  »|*  *,*  *,»  *,■»  *p  #,«  *l«  «,«  *,»  «,h  ^« 

*    ORD$EIGH$LOV;$CHECK   -   THIS    PROCEDURE    IS   - 

':-    GALLED    TO    ENSURE    THE    SECOND    SUBRANGE    VALUE    -^ 

-    IS    GREATER    THAN    THE    FIRST.    * 

*,•  *!•  ^fi  5,*  «p  2|^  *|j  ^z  ifi  ;,i  jjC  5,c  i,t  i,c  ;,i  ip  ?(*  »!<  Sf.  5,i  *i»  <^*  ^  Jp  i,i  *(i  jp  j,c  ;,i  ;,i ;,;  ;|<  *,c  j»c  5,s  5,1  -,i  ^c  ;,c  i,t  ;,c  jjC  ^s  j,c  ^c  5,c  ;,;  5,c  / 

ORD^HULOW^GHK:    PROG    PUBLIC; 
IF   SUBR^PTR=e    THEN    RETURN; 
IF    SU1R$TYPE(0)=SU3R$TYPE(1 )    THEM 

IF    SUBRiVAL(0)    >    SUBR^VALd)    THEN    RETURN; 
CALL   ERROR(  'IS  '); 
END    OPDiHI$LOW$GEK; 
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'**  'I*  'I*  'I-  *1* 


*.L>  v(^  *.*«  U«  «i«0« 


/«t«  •*''  «)•  0«  <J«  ^i«  «t,  ^«  .U  .< 
'I*  '»"  '1-  -I-  *!*  ')"  ',*  *i*  -r  ■■) 

-  SrBRANGF$lNTEGEP$Hl$LO^CHiCK    -    THIS    PRCCT-   - 

*  DUFE    IS    CALLED    TO    FNSUPE    THAT    t^OTH    SU^-   -^ 

*  RANGE    ELEf^ENTS    ARE    CF    THE    SAME    TYPE,     *Nr    - 

-  THAT    THEIR    VALUES    DO    NOT    EXCEED    TH^    i\AX    - 

*  INTEGER    VALUE.    - 

'I*  »(*  ',«  ^,*  >P  *,.  #,-  --r  't*  T  'I*  '•*  'I*  'i"  'r  't*  1*  '»*  *!■»  1*  'I*  'r  n*  'r  'i*  1*  n*  'I*  'i*  'f*  'I'  '»'  'I*  '«*  'I*  'I*  't*  'I*  I*  *r  'p  'I*  '1*  't*  'i*  'I*  't-  'I*  / 

sub$int$hl$chk:  proc; 

ie  supr^ptr=0  then  return; 
if  subr$type(0)  ''>  suer$type(1)  then 
do; 
call  suhr^errop; 

RETURN ; 

end; 

IF    SU"3R$VAL(2)    <    32766    A:iD    SUBH^VALa)    >32767    TH^N 

do; 

integeridife  =  subrival( 0 ) +(  -subr$ val( 1 ) ) +1 ; 
return; 
end; 

IV   SU"BP$VAL(0)  >  32767  AND  SU?R$VaL(1)  <  32768  THEN 

do; 

call  subr Terror; 

RETURN ; 

end; 

ie  subr$val(2)  <'  32766  then  /-  both  positive  -/ 

do; 

IE(SUB?$^,ULO)-(3UpR$VAL(1)^1))  <  32766  THEN 

DO ; 

INTEGER  ^DIEE=SUBR^VAL( 0 )-( 5UBR$ V\L( 1 ) ) +1 : 

return; 
end; 

c»ll  su3r$ error; 
return; 
end; 

else    /-   BOTH   NEGATIVE   */ 

IF    (    -    SUB?$V.*L(1)-(    -   SUBR^VALO^    +1))    <    32766    THE; 

do; 
imteger$dief=(  -  subr^ val (1 ) )-(  -  scbrival( 0 ) ) +1 ; 
return; 
end; 
OIL  subr$erpor; 
END  sttb$int$hl$chk; 


/*  subrange$identieer<procedure  -  THIS  routine  -/ 

/-  IS  C/ILLEP  to  DETER'^INE  THE  OFFSET  (  NUMBER  -/ 
/*  OF  ENTRIES  IN  A  SUBRANGE  )  AND  THE  "YPE  OF  -/ 
/-  SUBRANGE,  GIVEN  THAT  THE  SUBRANGE  TYPE  IS  -/ 
/-  A  NAMED  IDENTIFIER.  -/ 
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SU^$ICSPPOC:    PROC; 

CONST^PN^PT?=CONST$PN 
C ONS T $  IN  rx=C CN  S T ^ I N EX 
P^INTNA.^.F=.CCN5T$VALU 
SY^'PASK=C0N5T$P^iRASH 
IF    NOT    LOOKUP $  I  LENT    T 

ELsr  ro;  /-  found  con 
PAST'=inoKUP$Ar:rB; 

CALL  SFTADLR?TR(4): 
SUB?  $70Ri^.  =  BYTEPTR  ( 0 
IP  SUBR$^ORI^  <>  27F 
C0NS$EMTRY 

THEN  C4LL  SU3R$FR 

ELSE  ro; 

IF  SUBRiFORM  =  07 

do; 

subr$typf(subr$ 
call  setalirptr 

SU3R$FCRr'="BYT^P 
CALL  SFTAirRPTP 
SUBR^VAL(SrER$P 
CALL  SFTALDRFTP 
SUBiTYP$ArER(SU 
Ci»LL  ORD$FI$LCW 

fnd; 
ELSE  do; 

ro  VEILS  ^(SHR( 

IF  S:iR(Sn3P^F 

IF  S  I  C.N  V  ALU 

ELSE  SIGNVA 

CALL  SE'^ADDR? 

5UBR$F0?N=?YT 

,   CALL  SET'rrRP 

if  not  lookup 

do; 
call  suer^e 
subr^ftr=su 
return; 

end; 

^LSF  do; 

BASE=LO0KUP 
CALL  SFTALD 
SnBR$F0R^.=B 

end; 
EN  D ; 

IF  (SHF(SUBRiFO 

do; 

call  suer$srr 
su3r^ptr=subp 
return; 

EN  D ; 

/-    HERE    V/F   HAVE 

IF    (SHP(SfTpHi?o 


iPTR-i; 

-CONS  TSPN  ^S  I  ZE  ^  CON  ST$  ^N  <  PT^. 

E(CONST$INDX); 

(CONST$PN$PTR) ; 

EEN  CALL  SUBR^ERROR; 

STANT  IDENTIFIER  -/ 


); 


/-    POINTS    TO    ^ORfdYTEPTR) 

Kt^AS 


and   (suprsfor^  and  fop 
ror; 

E    THEN 


PTp  )=ord$type; 

TR(0);  /-  LENGTH  OF  P.NAKF 
(7+3UBR^F0R^0; 
TR)=DOUBLE(BYTEPTR(t?)  )  ; 
(7^SU3R$F0R^); 

br^ptr )=add^pt^ ; 
$cek; 


subr^f0r^^,5)  ant  3e)=^^ 

cr^:,5)=nec-  teen 

=  pos  then  signva1u=nfc-; 

ll=pos; 

TR(c); 
EPTR('3); 

TR^7+SUBR$F0Ri^  ); 
$ONLY(APT?ArD?  ^    TEEN 

rror; 

BR^PTR+1 ; 


saddr; 

RPTR(4); 
YTEPTF(P); 


rk,3)and  3e)  =  ?  teen 

cr; 

$PTR+i; 


EITHER  AN  INTEGEP  OR  CE/.R 
RM,3)  AND  3")  =  1  TFEN 


<> 


'•"/ 


14: 


CALL  SE^A 

?UP?$70P^ 

CALL  SiT* 
IF  SISNVA 
SUER$VA 
a:LSE  SUEP 
SU^R^TYPF 
CALL  SU5^ 

ILSE 
DO  ; 

CALL  S 
SU3P.$? 
CALL  S 
IF  BYT 

do; 

CALL 

SUPR 

PFTU 
FNC; 
CALL  S 

CALL 
ELSF  r 
SrBR 
SUER 
CALL 

end; 
end; 

EM  t : 

end; 
e^jd; 

SUPR $^TR= SUER $PTP+l; 
END  SUB$ID$PPOC  ; 


GZR  -/ 
DDPPTR(6) ; 

=PYTEPTR(.^)  ; 
rrRPTR^7+SULRiFCRi^  ■; 
LU  =  NE'1  THEN 

L(supRiPTP)=  -  add^ptr; 

$  VAL  ( SUER  $  ?T  R  ''  =A  DDR^TR  J 

(su3R$PTR )=inte&erstype; 

IMTiwL$CHK; 


ETAirRPTpfe) ; 

ORK.=3YTEPTP(0); 
ETADDRPTR(7  +  SUBR^E0R^^  i; 
E?TR(e)  <>  1  THEN 

supp$error; 

$PTR=SUiR$?TR+l; 

r.i; 


E^ADI  RPTR  (P  +  SUEP  $EOR^^ } ; 
EPTR(0)    <41H    OF    BYTEPTR(^)    >    f.AH    TEEN 
SUB^.iERROP; 

o; 

$VAL(5UBRiPTP  )=ECU3LP(BYTEFTR(r')-41?:)  ; 
$ TY ?E  ( S UBR  $ PTR  )  =CHA R$  TY ?E  I 

rpr$Hi$LoviCH'<; 


SUB 


SUBPA-JGE$CASE  -  THIS  FRCCEDUK 
CETERhU'E  THE  NUMBER  OF  ENTRI 


E    I 
E3 


S    U 


SED    TC    -/ 
A    SUBRANGE'' 


R$C 
DCL 

5IG 
DO 

ro 


ASE 

A 
NYA 
CAS 

CA 

;  c 

IT 


?poc( A); 

YT 
U= 

IT 

E 

NS 

ON 


> 

=POS 

^XPR 
CON 
T$P 
ST$ 


ESS$STK( A) ; 

ST    NUMBER    -/ 

TR=COrJST^PTR-: 

NUKSTYPE(CONST$PTR )=REAL$TYPE    THE' 


1  • 

■X  f 


C 
r 

e\'d; 


ALL  subr$epror; 

ONS  T$I NDX =C0r4  STS  I ^ DX-BCDS  I Z 


::  > 


ELSE 
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re;  /-  integzr  type  -/ 

C0N3'^$INDX=CCMST^INDX-?; 
CALL 
MOVS(  .CONST$VALUE(CCNST$INLK)  ,  .SUER<  VAL  ^  S-IIR$  PTF  }  ,2)  ; 
SrT^R$ TY PI (  SUBRi PTF  )  =1 1^  TEGE? $ T  YPE ; 
CALL    SUP5INTS^L$C^-^K; 
EN  L : 
SUB?iPTP=SU^H$PTR+i;    /-    NEXT    TO    FILL   -/ 

end; 

/-  tase  i lent  ccmstant  -/ 

call  sub$id$pecc; 

/-  CASE  SIGNEl  IDENT  CONSTAN'T  -/ 

do; 

stgnvalu=neg; 

call  sup^ib^ppoc; 
enl; 

/-    CASE    CONSTA-JT    STRING    -/ 
Dn; 

CON  S  T  $P N  ^ PTR=C  CN  S  T$  PN$  PTR-1 ; 

C  0  N  S  T  5 1 N  r  X  =  C  0  N  S  T  i  I  N  D  X  -  C  0  M  3  T  $  P  N  $  S I  Z  E  (  C  f"  r !  3  T  5  p  N  3  ^  V  R  ) ; 

PRINTNAME=.CCNST$VALUE(COflSTSINrX); 

IE    CONiST$PNiSIZE(CONST$PN^PTP)    <  >    2    THEN 

CALL  suer$erhcr; 

ELSE 

Lo; 
ease=frimtmai^e; 

CALL  SETABDEPTRd  ); 

IT  PYTEPTPO)  <  4:1^  OR  3YTE?TR(3^  ^  5A?  TI-^EN 

CALL  sriR^ERRGP; 
ELS"P 

do; 
s uer ^  v  a  l  (  s  upr  $? t^  )  =:  oupl k  (  e yte  p  ir  (  0  )  -41  -: ) ; 
sijbr$ty?e(  su3R$PT?  )=char$type; 

CALL   ORr^HISLOWiC^K; 
EM  L ; 
end; 

SUBRSPTR=SUPRi?TP+l ; 
EN  D  ; 
end;    /-  C^  CASE  express$stk('^p)   -/ 
END  stjer$case; 


/ 1^  *(*  'I*  *»*  't*  'I*  't'  'i'  ^i'  'I*  n^  *i-  '»*  '»*  '«*  'I*  'i'  ')*  '»'  'i'  '»*  5,*  •»'  'p  n*  *i*  'I*  'r  *i*  '«*  *»*  'I*  'I-  *t'  'i'  '1'  *»*  '1^  *!*  *i'  't'  't*  '»^  'I*  '»'  'i'  't*  '1^  '»'  / 

/^^  enter^su?ramge$entpy  -  this  ppocedu-s  is  -/ 

/-  used  to  enter  a  subrange  type  ent^y  into  -/ 

/-  the  sykbol  table.  this  syhbol  table  i^ntpy  -/ 

/*:=  has  no  ppintnai^e  associated  vith  it.  -/ 

EMTosSUB^NTRY:    PROC    PUBLIC; 

typesioct=sbtbl; 
call  limits(12); 

V^CPTE=V^CPTR-i; 
CALL    SUB^^CASE(SF) ; 


1/11=, 

1  tC 


VFCPT=.=V?C?TR-i;  , 

CALL  SUBR$CASE(^?)  ; 

C\LL  Y.M'"R$CPLX$TYP(S"L(SU3P$TY?v(0)  ,e)OR  C??/ ; 

CALL  S?:TADD??TR(5)  ; 

I"F  SUBR$T7?E(fe;)=I.NTECER^TYP^  TEEN 

ArC^PTR=.3UILTili^iT3L; 
IF  S UBR $  TYPE (0)=C HA ?^ TYPE  THEN 
AEI;RPTR=(  .PUILTilN$TPL+23)  ; 

I^  SU3R$TYPF((2)=GRr$TYPE  TE^N  ADLRPTR-SU^  $TYP$  »  LrR(?  }  ; 

CALL  3FTADDRPTR(7) ; 

ArDR^TP=SUBR$VAL(l); 

CA.LL  SFTA.DDPPTR(9); 

ADrPPT^=3U'nR^VAL(2)  ; 

CALL  SETAELRFTRdl)  : 

IF  SUBP$TYPF(0)  =  TNTEGER^TYPF  THEN  /-  RAW-tF  ?.    TC  64'(  -/ 

ALr^PT^=INTEGFR^DlFF;  /"-•'  >''hX   ^T  GREATER  THA  [^  o?767  -/ 
ELSE 

^.rERPTP  =  (  (SU3R^VAL(0)-SUBR^VAL(1)  :+l)  ; 
SUBP^PTR=3; 
?BTEL=SBTBL+6; 
EMD  TNTP$SU3iNTRY; 


/,i«  ..t.  «t>  ^1,  «l,  o«  «,'«  -J*  • 
'I*  'i*  '»*  'I*  -r  -I*  -r  'i» ' 

*   TYPF^FPROP    -   THIS    PROCEDURE    IS    CALIEE    IN    TH^- 
-    EVENT    CF   AN    I  NCOt^PAT  li  LE   TYPE.    - 


/ 


TYPF^E^R'^^  :    PROC  J 

allocate=ealse; 
call  fprop( 'it'); 
END  type$err':^r; 


/-  allocate  offset  -  THIS  PROCEDURE  IS  CALLED  TO-/ 
/-  DETERMINE  THE  NUMBER  Ox  BYTES  REQUIRED  lOR  -/ 
/-  STORAGE  G^  A  VARIAT^LF  OF  TEE  '^YPE  GIVEN  I.^  -/ 
/-  THE  PARAMETER  'A ' .  THE  VARIABLE'S  ALLC$QTY  -/ 
/-  AND  ALLCSFOR^'  ARE  SET  UPON  RETURN.  -/ 

ALLC^OFFSET:  PROC(A)  PUBLIC;  /-  TYPF^LOCT  -/ 

ICL  A  addr; 

dcl  (allc$f0rm,3)  byte; 

basf=a; 

CALL  SETADDRFTR^4) ;  /-  POINTS  TO  EORM  01  TYPE  -/ 
ALLC$70P^=  5YTEPTR(?)  AND  ^ORMMASK; 

IF  ALLC^FO^^  <>  TYPE$ENTRY  AND  ALLC$FORM  <>  TYPFDCLE 
TEE  N 

do; 

call  type^errop; 

ALLC^CTY=i; 
ALOCBASICTYP=0; 
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rztupn; 

DO    V'HIL^(  (SH?(BTTTPTR(e  )  ,3)ANr    FOR^i^AS'{  )=7    AiVI 
ALLC^70?M=Tv?E^E>\T5.Y  )  I 

CALL    SPT$?AST$?N (7  )  ; 

BA3F=ADrRPTB;     C^LL    SETADDHP'^?  (4  )  ; 

TYPi^LOCT  =  ease; 

,4LLC*FO  =  M  =  EYTIPTR(0)  ANT  FOR^^^AS'tC; 

I?    \LLC$?OPM    <>    TYPr$ENTHY    AND   ALL^SEOPV    <>    TYPELCLE 
THEN 

ro:  CALL  type$eproh; 

ALLr$OTY=i; 

al0c3a5ictyp=3;  return; 
end; 
f^id; 
/-  here  exists  either  a  pas  ic  ty?e  on   a  type  becla?\tic.n  -/ 

I"^  AlLC$EORVi  =  TY^E^ENTRY  THEN 
do;  /-  RASIC  TYPE  -/ 
DO  CAS^  (SHR(^YTEPTP(3)  ,3)  AND  EQi^r^KASK); 

do; 

ALLC^CTY=2; 

alcceasicty?=imtegsr$type; 
end; 

/-    BCD   REAL    -/ 

ro: 
allc$cty=3; 

A  LOG  EA  S  I C TY P=U NS  IG \'  $iX?0N'  ; 

end; 

/-  characte?  -/ 
do; 

ALLCiCTY=i: 

alocrasictyp=chae^^ype; 
end; 

/-    POOLS AN    -/ 

do; 

ALLCiCTY=i; 

alo  c eas i ct yp  =?oolean  $  t  yp e  ; 

end; 

/-    TEXT    -/ 
do: 

ALLC$OTY    =   ?; 

.al0c5asictyp  =  string$type; 
end; 

end;    /-   0^    CASE   -/ 
ALLnCATE=TRUE; 

return; 

end;  /-  RT^P^  EXISTS  A  TYP^  DECLARATION  -/ 
TEMPPYTFl  ,ALLC$E^Rr^=(SKR(EYTEPr^^(?)  ,?)AND  yOF^^AS?:); 
IE  ALLC$EOR'^  =  ^;.  TEEN 
do;  /-  SCA.LAF  -/ 

allocate=true; 

allc^oty=douele( allcsform+1 ) ; 
alocrasictyp=ord$type;  return ; 
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IF''ALLCiFO?^  =  l    iHi-N 
do;    /-    SUBPAwaE    -/ 
ALLOCiiTF=TRUE; 

B=SER (^YTTPTRle)  ,6) ; 

IF   -c    =    1    THIN    AILCiOTY  =  BOU^IF(ALLC^FOFM^l)  ; 

T^LSE    ALLC$CTY^rCUFLi:(ALLG$FORy);    R2TUPN; 

end; 

if  allc^"p"0rm  =  2  thfn 
ro;   /-  ARRfiY  -/ 
alloc4.tf=t?ue; 
aioc3asictyp=c0^plfx$typ.e  ; 

GAIL    SETAirRPTRr?)  t 

allc$oty=^dl?pt?;  return; 
end; 

P  =2  • 

/-  ALL  OTHER  CASES  ALLOCATE  AN  AirRESS  FIELI  -/ 
ALLCiOTY-EOU^LE(^) ; 
AIOCRASICTY^  =  CCr^?LEX$TYFE; 

allocate=true; 

END  ALLCiOFFSET; 


/-  AL^NDX$OFFSET  -  THIS  FRCCEDURF  IS  CALLED  -/ 

/*  TO  DETERMINE  THE  NU.^PER  OF  BlfTES  RECUIRED  -/ 

/*  BY  AN  ARRAY  TO  STORE  THE  ARRAY'S  COf^'^PGME^.'TS  -/ 

/*  TYPE^LOCT  IS  SET  P^.IOR  TO  CALLING  THIS  -/ 

/-  ROUTINE.  AN  ADDRESS  VARIABLE  CONTAINING  TEE  -/ 

/-  BYTE  COUNT  IS  RETURNED.  -/ 

/  *t*  5|^  'i*  'I*  'i»  'i'  *^'  *t'  t*  »»■•  *i'  'i'  'i*  'i'  •!'  'i*  ^'  »»'  51*  ^  V  *i*  *»*  •!*  •!*  '.'  *r  ^*  't*  »»'  'i*  'I*  •>*  't^  'i'  'i'  *»'  '»'  '»*  *»*  *»*  'i^  **'  'r  'i'  'i*  'i^  't'  *»*  / 

AL^NDX'^OFFSET:  PROG  ADDR  PUBLIC: 
DCL  \  ADD^,3  byte; 

a,base=typeUoct; 

CALL    S£TADDRPTR(4); 

do  while  (ser(bytep'!'r(g)  ,3)  and  formmask)  -  7  and 
(  byteptr(0)  and  fo^^f^.'^ask  )  =  typf^entry; 
call  set$^ast$^n (7) ; 
base=addrptr;  call  setaddrptr (4); 
type$loct  =  basf; 
end; 
/'-  h^re  we  have  either  a  scalar ,  subran  ^-e , boolean  ,  or  char 

TYPE    */ 

B=   SHR  (BYTEPTR(e)  ,3)    AND    FOR^^^'ASK; 

l^  (ryte?tr(?)   and  eorkf^as'-^)  =  type^entry  then 
do; 
if  b  =  0  or  ?  =  1  then 
do; 

CALL    ER^0R( 'IA') ; 
B=2  * 

return  d0uble(3); 
end; 


i4:e 


17  P=?  THEN  /-  CHARACTER  SUP^ANGF  -/ 

R  =  2e; 

PEC$VAR$TYP(R?C$NST)=CH«PiTY?i; 
RiTURM    DOURLE(?); 

end; 

/-   rc CLEAN    'V 

r^c$var$typ(fec$nst)=3ocle*.n$type; 
B  =  2;  return  rou^LE(R); 
ENi; 
/*  complex  t-ype  -/ 

IF  ((  ?YTE?TR(^)  and  EORMt^AS-')  <>  TY?E$rCLE  CP 

{{  2  0  <z   )  ami  (  p  0  1  )  )  )  then 
do; 

CALL  ERROR (  'lA')  ; 
E=2;  RETURN  rCUELE(PU 

end; 

Ij    5=0  THEN 

do;  /-  SCALAR  TYPE  -/ 
PEC^VAR$TYP(REC$NST)=COhPLEX^TYPE; 

call  set$past$pn(7)  ; 
return  double fpytsptr(0)  +1); 
end; 
/^=  subrange  type  -/ 

REC$^'AR<TYP(fiEC<NST)=CRr^TY"DE; 
C\LL  SETADDRPTRdl  ); 

RETURN  addpptr; 
END  al$ndx$oeeset; 


-  ALLOCATE^VARIAPIES  -  THIS  PRHCEDURE  IS  '•= 

-  CALLED  TO  ASSIGN  PRT  LOCATIONS  EOR  EACH  ^= 
*  OF  T^E  PROGRAM  VARIARLE3.  - 

ALLOC$VAPS:  PROC  PUBLIC; 
TEr^P"RYTEl  =  ^', 

CALL  ALLC$OEFSET(TYPE$LOCT); 
TEf^PBYTE  =  VAR^PT^; 
DO  VAR$PTR  =  0  TO  TEKPEYTE; 

EASE=VAR$5ASEfVAR$PTR)  ; 

CALL  SETADDRPTR(4); 

if  shr(?yteptr('2))  ,7)  then 
do; 

RYTE?TR(0)    =    (BY':ePTR(?)  )    OR    (  S^L  (  A  LOCPAS  I  CT  Y?  ,3  )    OR 
VAR$EN'TRY); 

A^TPADDR  =  VARiBASEl(VARiPTR); 
ADDPPTR  =  ALLOC^ADDR; 
ALLOC  $ADDR  =  ALLOC $ADDR  +  2', 
END; 

ELSE  do; 

■BYTEPTR(3)=S-L(AL0C3ASIC'^YP,3^  OR  VAE^ENTRY; 
IF  fPYTEPTR(?)  =  23H)  AND  (TEMRIYT?!  =  2;  THEN 
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APT^J-TLR  -  TYPEiLCCT  +  £', 
ALLC$OTY  =  A.rLRFT^; 

'^hd;    /-  I?  Try^BYTEl  =  3  t-en 
Dd; 

APTRAriR  =^  TYPi$LOCT  +  6; 

APTPADTR  =  APTRADDR  +  ^.Y'^EPTR(e) 

A P TRAD LP  =  ADDPPTh  +  5; 

ALLCiOTY  =  AriRPTP; 

fne;  -/ 

aptradd^-yah^baszl (var^ptf ) ; 

ArrRPTR=ALLcc^ArrR; 

*LLOCiADLR  =  ftI.LOCUDDP+ALLC$0?Y; 

end; 

APTRArrR=APTRArER+2; 

addrptp=type$lcct; 
end; 

TEyPPYTEl  =  0; 
END  ALLOC iVARS; 


«  «>«  ^l*  «(«  kt«  tj^ 


«o  o^  ,l«  ,>«  *•« 


/*»^  y*  *>>  «■«  »i* 

*  CASEiPTRPTR  -  THIS  PRCCEDUPE  IS  CALLED  TO 

*  SET  i  VARIABLE'S  APPROPRIATE  TYPE.  - 


7 


CASE^PTRPTR:  PROG (A)  PUBLIC; 

DCL  A  pyte: 
DO  CASE  a; 

/-  case  0  ord  variable  -/ 

do; 

PT^PTR  =  105; 

CALL  SETiPA5T^PN(S) ; 

EASE$LOC(S?)  =-  ADIRPTR;  /-  ALDR  OF  PARENT  =;V 

end; 

/-  case  1  integer  variable  'v 

PTRPTR  =  09E; 

/-  CASE  2  CHAR  VARIABLE  -/ 

PTRPTR  =  3^H; 

/-  CASE  3  REAL  VARIABLE  -/ 

PTRPTR  =  0AE; 

/-  CASE  4  COMPLEX  VARIABLE  -/ 

do;  /-  ARRAY,  SUBRANGE,  USER  DEFINED  TYPES  -/ 

TEMPADDF  =  BASE;  /-  STOR^  VARI«BLE  S  BTL  LOCATIOi^  -/ 

CALL  SET$PASTi?N(9) ; 

BASE  =  adirptr; 

CALL  SETADDRPTR(4:); 

IF  PYTFPTRO)  =  17H  THEN  /-  AR^AY  '•'/ 

do; 

aptraddr  =  aptraddr  +  6; 

TEMPBYTEl  =  BYTEPTR(3); 

end; 

else  if  (byteptr(0)  and  eeh)  =  0fh  then  /-  subrange 

TYPES  =V 
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7 


BYT? 

F  EY 

USE 

BYTZ 

=  A 

SEi 

YTEP 

IS  I 

SET 

$LOC 


TEMP 
ELSE  I 

ro;  /- 

TEMP 
CALL 
BASE 
CALL 
I?  B 
/'■^'  TH 
CALL 

e^jd; 

ELSE  I 

ro;  a:= 

CALL 

BASE 
ENi; 
ELSE  T 
DO  CAS 

PTR"^ 

PTP? 

PTBP 

PTRP 

PTB? 

PTP? 

PTRP 

enl:  / 

BAS^  =  TE 


1  =  3^R(BYTEPTP [d)  ,    c); 

"EPTRCG)  =  VAH  THEN 

R  D^EINET  TYPE  '^/ 

1  =  i] 

^PAST^PN (?) ; 

LDRFTF; 

AI)DR?TR(4:); 

TR(0)  ^>  27H  TFEN 

S  A  SET  TYPE  -/ 

AEDR?T?(5); 

^^P)  =  ATERPTR;  /-  AFDR  CE  PARENT  -/ 


^  K\  r*    ^ 


CALL  ERROR (  'NS 


t 


TT  pyTEPTRO)  =  37H  THEN 
POINTER  -/ 
SETALDR?TR(5); 

iLoc(sp)  =  adlrftr;  /^^   aldr  oe 


PAPEi\T    -/ 


EKP 
E  T 
TR  = 
TR  = 
TR  = 
TR  = 
TR  = 
TR  = 
TR  = 
-    0^ 


3YTE1  =  pen; 

EMPBYTEi; 

=  10e; 
=  09h; 

=  0bh; 
0Ah; 
=  0ch; 
=  06h; 
=  0Ce; 

^  CASE  -/ 

^PADDR;  /^ 


RESTORE  ORIGINAL  BASE  LOCATION 


enl; 

/-    CAS^    5 
PTRPTR    =   d 
enl;    /*  OF 
EMD    CASE^^TPPT 


BOOLEAN  VARIABLE 

sh; 

variable  case  -/ 

r; 


-/ 


/ 
/ 

/ 


/ 

SET$ 


ET$ 
0  S 
DDR 

ALL 


VARI 
ET    T 
ESS 
ABLT^ 
.    -/ 


ABLE$TYPE    -   TEIS    PR0CEr;UT5E    IS    CALLED    '-V 
'IE    VARIABLE    TYPE.    VARIA^^LE    SIGN, AND   ^V 
OF    TEE    BASIC    TYPE    C-IVEM.    ^HE   ADDRESS-/ 
'LOOKUP^ADD?'    IS    SET    P^IOR    TO    TRT'    -/ 


•  ^,  «i«  ^«  o* 


»  0>  -.•«  %l«  «i«  ^)«  -.(^  . 


AR$ 
ET$ 
CL 


END 
lASE 


TYPE 

TYPi 

(A, 

CAL 

IE 
p 

ELS 
TYP 
SET 
=    L 


:    P 

NiL 

D, 

L    S 

(B= 

R  TA 

E    P 

EiS 

<TY 

OOK 


ROC 


P 
OC:    P 

C)    BY 

ET$PA 

34H) 

DDR(S 

FTADD 

TACK( 

P^N^L 

UP$AD 


U3L 
POC 

te; 

ST$ 
OR 

P) 

F(S 

SP) 

cc: 
dr; 


ic; 

(A,B,C); 

PN(A) ; 

(B=05H)    OR     •'B=3e^')    OR    (^  =  llFi    THEN 
=   APTRADDP; 

p)  =  addrptf; 

=    (^    OR    ROL(C,    7) ); 
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ro  CASE  (P^Rr$FIELD(?P)  ANT  JCRM^«?''); 


/-  constant  entry  -/ 
do: 

SIGN^^^ALU  =  pos; 

DO    CASE    (SHR(?YTEP':rO)  ,3)    ANC    <33H )  I 
/-    FIMT    OUT   VEAT    KIiVI    OF    CONSTANT    IT    IS    -/ 
DC    WHILE    (SHE(BYTEPTR(P)  ,3)    A,^ID    '^35)    =    0? 
IF    (SHR(^YTEFTR(^) ,5)    ANT    21H)    =    31H    THEN 
IF    SIC-NiVALU    THEN    SKN<VALU    -    NET-; 

ELSE  si;}NsvALn  =  pos; 

CALL    3STADCRPTR(6) ; 

IF    NOT    LOOKUPiP'IA^'Ef APTR^LLR)    THEN 

do; 

call  epr0t5(  'ic')  ; 

return: 
end: 

CALL    SETADrRPTR(4:)  ; 

IE  (PYTEPTRfe)  AND  FCR^^YASK  '  <^    C0i'15$I\":^ Y  THEN' 

do; 

call  e?ro°( 'ic ') ; 

return; 
end: 
end; 

/-  INTEGER  OR  POOLEAN  CONSTANT  -./ 
ITT  BASE  <  .MEf^OPY  THEN  /'■'  BuOLEAN  -/ 

CALL  SET^TYPiNnOC(9,4:H,POS  ] ', 
ELSE  /-  INTEGER  -/ 

CALL  SET$TYPiinLOC  (7,5H,3IGM<VaLU)  ; 
/-  REAL  CONSTANT  -/ 
CALL  S ET$ TYP ^ N  UOC  f  7  ,  6H  .  S I r- M  $  VALU  ) ; 

/-  string  constant  -/ 

call  setstyp^n$l0c(7.?h.2); 
eni:  /-  of  case  -/ 
end; 
/-  type  entry  -/ 

I 

/-  variaeie  entry  -/ 
do; 

IF   SHR(FORf^iFIELI(S?)  ,71    THEN    V.«R?ARr^    =    IRIJF; 
PTPPTR    =    (SER(EGF^$T^IELD(SP)  ,3^    AND    EOR^i^ASK); 
BASEiLOC(SP)    =   base:    /-    SY^-pOL    TA^LE    LOCATION    OF 

variable  -/ 

call  gase?trptp(ptrptr)  ; 
call  set$typ$n$l0c(7,pt?ptr.2) ; 
end; 

/*  ppocedure  entry  -/ 
;  /'^   no  such  thing  exists  in  pascal  -/ 
/-  function  entry  -/ 
do; 

if  f0rm$field(sp)  =  built$i m ^fun c  then  /-  ^uilt  in 
function  -/ 
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rr; 

CALL    SETSPAST$PiU8)  ; 
I^   3YTEFT?(3)    <>    13H    T^EN 
IF    PYT^?TR(e)    <>    eF3E    THIN 

DC; 

CALL    CA3EPTRPTR  (?rTvp'i'H(  ,3  )  )  ; 
TyPZ$STACK(S? )    =  ptrptr; 
aNd; 

APT^ALB?    =    APTRADDR    ^    i; 
PARVNUMf??)    =    EYTEPTR(e); 

pa?^mumloc(s?)  =  aptraelr  +  i; 
jnt; 
ELSE  ro; 

C&LL    SET$PAST$F:J(16); 

CALL    CAS^PTRPTR(SHR(?YT^PT^(  .^)  .3)    A^'^    EORKMASK); 
CALL    SET$TY?$N$LOC(10 .PTRPTR,?) : 
CALL    SET4PAST$Pn(7) ; 
PARyMUM(SP)    =    PYTEPTR(ZO; 
CALL    SET^PAST^PN fP) ; 
PARMNirLOC(SP)    =    ADDPPTP; 
CALL    SETiPA3T^PM(l4:); 
LAB^LSTACK(S?)    =   AlIRPTR; 
E^l^: 

IT    TOKEN    <^    le    TKEK    READPARI^S    =    TRUE; 
/-    OTHER'-'ISE,    THIS    IvILL    5E    A    FUNCTION    ASSIGNMENT 
STATEI^^NT    -/ 

PAPMNUML0C(SP^2)    =    PARMNUVLOC ( 3P  )  ; 
ENi: 
/-    FILE    EiNTF*^    -/ 

/-  scalar  entry  -/ 
do; 

CALL    SETiTYP^^J^Lnc(7,llH,?); 

A^TRAriR  =  APTRArrR  +  1; 

EA3EiL0C(5?)  =  ADDRPTp; 

end; 

ENE;    /-    OF    CASE    -/ 
END    S"^TSv AR^TYPEJ 


I  Oj  *l*  j»-  jU  j«. 

/-  LOAD^V 
/-  INTERS' 
/-  ON  TFE 

/  «•«  o«  «.*«  «•»  .0  ^u  «•«  ■.■' 

/  '!•  1*  'I*  'I*  *l*  'C  'l"  'I* 

LOAD^VAFI: 

rCL    PT 

FXPiST 

D 

r 


API    - 

EDI  AT 
EXEC 


FROC 
BYTE 
ACK: 
CL  A 
0  CAS 
A  = 
A  = 


THIS  PROCEDURE  CrFNERATES  THE  -/ 
E  CODE  TO  LOAD  THE  NEXT  VARIABLE  -/ 
UTICN  STACK  OF  THE  OBJEG'!'  FILE  -/ 

>,c  ^s  *,j  5,i  i,c  ^  5jS  2fS  ;,i  >,;  j|C  :,>  *,c  ;,c  ?,*  5,i  i^*  >,*  ;,%  J|*  5,i  5,c  5|C  «|^  i,s  Sj*  ^:  *,;  s^s  ijC  -,c  ;,c  ?,t  ;,t ;,;  *•'  /       /  ''^      '^*  / 

(PT)  PUBLIC,- 

;  /'!^  PT  REPRESENTS  A  STACK  POINTEP  '■' / 

PROC  ; 

byte; 

e  (typesstack^pt)  and  0fh); 

opd$'^ype; 

ord$type; 


15. 


/ 


a  =  3C0LF4 nstype; 

A    =    I  i\TEC-F retype; 

A  =  unsicn^expon; 
4  =  steim3$^ype; 

A  =  BOOLFANiTYPE; 

A  =  intecer^type; 

4  =  UNSIGN$EXPON ; 

A  =  chap$typf; 

ENP;  /'■''    OF  CASE  -/ 
FXPPESS^ST?:(PT)  =  \; 
END  EXP i stack; 
LOAD:  ^ROCfA,  E,  C}; 

DCL  (A,  B,  C)  byte; 

/-  cfeck  \^  loacin'c-  a  function  value  =■=  / 
if  fform$fielr(pt)  and  7fh)  ^>  func^e^ithy  then 
do; 
call  genffatf(a) ; 

CALL  GENEPATEfEK 

I^  SFH(TYPZ$STACX(?T)  ,  6)  TEEN  /-  ACCESSIN'C-  APRAY 


CALL  GFNEPATE(SUB); 
ELSE  CALL  C-ENERATE(C); 

I^^  A  =  LDIB  TEEN  /-'  LOAD  PES"'  OF  BCD  ^lUr^^^p  -/ 
10  PTRPT?  =  2  TO  fBCDNU^'(0)/2)  ; 
APTRADDR  =  APTR^DDP  -  2; 

call  gsnfrat^(byi'fptr(2  i  )  ; 
call  generate  f  hi  c-e^add^ptr^  ); 
emd: 

IF  S^P(FOPMiFIELD (PT ) ,7 )  T^eM  /-  VARIABLE 
PARAMETER  -/ 

CALL  GENERATE (LODI ) ; 
EN'D; 
ELSE  CALL  GEN^AIDR ^ PRO , LA FELSTAGK ^ MP M ; 

CALL  exp$stack; 
END  load; 

IF  READSTMT  TEEN  RETURN:  /-  G^TNG  TO  READ  THIS  VALUE  -/ 

IF  RFADPARM3  THEN 

do;    /-    PEALING    A    SUBROUTINE'S    PARAr:ETEPS    '•'/ 

if  (token  <>  12)  and  (token  <>  8)  then  realfar^s  = 
false; 

/i^  "^his  means  this  parametef  is  aw  expression  that 

MUST  PE 

EVALUATED.  AFTER  EVALUATION,  RE  AD? ARMS  WILL  PE  SET 
TO  TRUE.  ^^V 

ELSE  D^; 

CALL  \SSIGN$PAPMS; 

CALL  exp^stack; 

return: 
end; 
end; 
/-  if  loading  a  function  value,  go  to  the  case  statement 

*/ 

IF    (FOEM$FIELD(MP)    AND    7Fn)    <>    ^UNC^EN'^RY    THEi^ 
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ro; 

OR 

(  (TY??$STACK(P^)  ANC  4:0H  )  =  40H )  ^?IN  /'i^  IN  CASE  0^ 
ARRAYS  -/ 

call  generate(lita)  ;  /^'^  going  to  load  a  ^rt  altr  -/ 
else  apt^adlr  =  p^talcr(pt);  /-  golrjg  to  load  a 
constant  -/ 
^nd; 
do  case  {type$stacktpt)  and  0^h);   /-2-/  /=:=  cpd  v/^fia^le 

*/ 

CALL  LOAL(LOW(PRTArrR(PT) ) ,HIGH ( PRTArPR^ ?T ^  )  ,LOr^; 
/>.n-/  /*  OPD  CONSTANT  ■<' / 

;  /*2-/  ;  /-3-/  ;  /^=4-/  /-  boolean  constant  -/ 
call  load(ldii,byte^tr(0) ,nop) ;  /-5-/  do ;  /- 
integer  constant  -/ 

CALL  LOADfLDII  ,LYTEPTRfe)  ,FIC-E(ADDPPTR  ))  : 

IE  TYPE$STACK(PT)  =  35E  TEEN  CALL  CJ^NEP  A  TE(  NEGI  ) ; 

end;  /*6-/  do;  /*  bcd  constant  -/ 
call  load (ld ip ,eyteptr(0) ,hich ( addrptr '0  ; 
iv   type$s^acr:(pt)  =  sch  then  c^ll  generate  ( negb  ) ; 

end;  /'i'?-/  do;  /-  string  constant  -/ 
CALL  gen^rate(ldsi) ; 

TEMP3YTE  =  ■BYTEPTR(0);  /*  LENGTH  OY    STRING  -/ 
DO  PTRPTR  =  ^  TO  TEI^P^YTE; 

call  GENERATE(APTRADDR  +  P'^RPTR^; 

end; 

end;    /-6*/    /-'    ROOLEAN    VARIABLE    -/ 

CALL    LOAD(LOWCPRTADDR^^T^  )  ,HIGH ^ PRTADDR ( PT ;  )  ,LOD) ; 
/^=9^V    /^    IMTE^T^-D    VARIA3LE    ='V 

CALL    LOAD(LOV/(PRTADDR(?T)  )  ,HIGR  (  PRTADDF  ^  FT  )  ^  ,LCDI  ); 
/-A-/    /-    REAL    \URIAPLS    */ 

CALL    LOAD(LOW(PPTArDR(PT)  }  .HIGH ( PRTA DDR f PT ;  )  .LODB); 
/*T3^:/    /^t    CHARACTER    VARIABLE    'V 

CALL    L0AD(IOV(PRTADDR(PT)  )  ,  RICH  (PRTADDR  '  PT  ^,  )  ,L0I)  ; 
end;    /-    OE    CASE   'V 
END    LOAD^VARi; 


/  5»'  '»*  '**  n*  »i*  ^  'I*  *r  •!*  'I*  '1*  I*  1*  'I*  'I*  *!*  'I*  'i*  V  'i^  'i'  'I*  5,i  J|t  '|i  5,!  ;,c  ;,c  ?,i  *|'  5,c  3,s  ;,'  s,;  ;,i  ;,J  ;,t  ;,s  ;,c  ,ji  ;,i  ^.i  i,j  J,*  ;,c  ^c  5,t  ;,J  ;,»  / 

/-  ASSIGN$VARI  -  THIS  PROCEDURE  GENERATES  TFE  -/ 
/^'  INTER^iEDIATE  CODE  TO  LOAD  TEE  LEET  SIDE  OE  */ 
/-  AN  ASSIGNMENT  STATEMENT  ON  TRE  EXECUTION  */ 
/*  STAC^  AND  STORES  A  RESULT  AT  TFAT  LOCATION.  -/ 

/  ^*  *'c  t'c  Vc  *^c  ^'c  ^c  V'  ^''' *^c  **£  ^'^  ^''  "^c  ^''  s*'  *''  '*'''  ^*t  ^'c '''''  "*<  *''  ^*{  "'*  *>''  ^''  **'  ^'^  *''"  ^'  "^'^  ^''  "'c  *'f  y^  "^x  ^*c  y<  ^c  ^'<  "'c  ;*'  "^t  7*'  3*'  s't  s'c  s'c  / 

/^SSIGN^VARI:  ?ROC(LS,  STORE^TYPE)  PU3LIC; 

DCL  LS  RYTE;  /-  LS  IS  THE  LEET  SIDE  OE  ASSMT  STMT  -/ 
DCL  ^A,  B,  STORE$TYPE)  BYTE:  /-  STORE$TYPE  INDICATES 

WFETH"!^F 

TO  DELETE  OR  LEAVE  THE  CURRENT  VALUE  AT  THE  TOP  01   TF^ 

STACK  -/ 

i^  (type$staci(ls )  and  40h)   =  40h  teen 
do; 
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rpYp^^S'TACKdS^    =:    (TY?2$STACK(LS)    AN!    0IFH^; 
CALL    G^MyPATE(XCHC')  ; 

emd; 

ELSE    CALL    GEN  ^  AILRf  LI  Ta  .  PRTi  AriT?  ^S  )  )  ; 

IF    SrP.  (FO?M$FIELD(LS)  ,7)    TEFN    /-    CHECK    FOP.    VAR    PARarFTER 

CALL    GFNERATE(LODI)  ; 
ro    CASE    EXPRESS$STK(S?) ; 
/':'   CASE    I    -   OPE    TYPE    -/ 

IF    f  TYPE$STACKas)    <>    IIH)    AND    (TYPE^STACK  f  LS  )    <>    l^P) 
T^FM 

CALL    ERROR (  'AT'); 
ELSE    A    =   2; 

/*    CASE    1    -    INTEGER    TYPE    -/ 
IF    TYPEiSTACK(LS)    =   ^9H   T^EN' 
A    =    1  * 

ELSE  do; 

IF    TYPE^STACK(LS )    =    3AH    THEN 

ro; 

CALL  GENERATE (CNAI  ); 

A  =3; 
enl; 

else  call  eppo^( 'at'); 
end; 

/-  case  2  -  cear$type  -/ 
if  typ^$stack(ls )  =  03h  t5em 
A  =  2; 

ELSE  CALL  ERR^P (  'AT'); 

/'-  CASE  3  -  REAL  TYPE  -/ 

IF  TYPF^STACK(LS  )  =  JAH  T^EN' 

A  =  0; 

ELSE    CALL    EitROP(  'AT'}; 

f^'    CASE    4    -   STRPIG    TYPE    ^V 

A  =  2; 

/*  C\SE  5  -  BOOLEAN  TYPE  -/ 

IF  TYPE^STACK(LS)  =  ^5H  THEN 
A  =  2 ' 

ELSE  CALL  ERROR( 'AT') ; 
end;  /-  OF  CASE  -/ 
IF  STORS$TYPE  THEN  A  =  A  +3; 

DO  CASE  a; 

p  =  stde; 

E  =  STDi; 

^  =  std; 
R  =  stop; 

S  =  STOi; 

1  =  sTo; 

end;  /'i^  OF  CASE  ^v 
CALL  GENERATE(E); 
END  ASSIGNS VAR I  ; 
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/-  THIS  PP.CCECUF.I  CLICKS  TH?  TO?  '^VO  -/ 
/'i'  VAP  TABLES  ON  THF  EXECUTION  STACK  -/ 
/-  ECR  PROPER  ^YPE.  -/ 

/  ;;c  ;;i  ;;t  >;:  i\i  i',:  ;;;  ;;i  j;s  s^i  :\i ;;;  ;'^  :;; ;;:  :;c  ^; ;;; :;:  y.: ;;;  5;<  ^; :;;  -.'fi  :;c  ;;c  ^t ;;; ;;{ ;;; ;;; ;;;;;;  5;;  j;; ;;:  /   C  ^  "^  $  ""^  X  P  R  ^  T  Y  P  E  t  "^"^^Q 

BYTE  public; 

IE  (EXPRESS  ^STKfSP)  =  SXPRESS$STK  (!^P  )  )  ANT 

exppess^stkCsp)  O  ?■¥. 
then  return  true; 
ie  ex?ress<stk(fp)  =  ie  teen 
do; 

IE    EXP^ESSiSlK(MP )    =   3F   T^EN 

do; 

call  g^merate(cmvi ) ;  /-  convert  int  tc  pce  -/ 

EXPPESS$3T?:(SP)    =3h; 
RETURN    true; 

t^nd; 

ELSE  RETURN  EALSE; 

ENr; 

IE    EXPRESS$STE(SP)    =3H    THEM 

ro; 

IE  EXPRESS  $ST:'C(MP)  =  IE  THEN 

do; 

call  generate(cn2i ) ;  /-  convert  second  int  tc  bcd  -/ 

EXPRESS  ^STK^r'P)  =  3H; 
RETURN  true; 

end; 

else  return  ealse ; 
end; 

ie  expressistk(sp)  =  zh  then 
do; 

ie  express  $stf^(^:p)  0  ?h  then 

RETURN  EALSE; 

ELSE  ro; 

IE  BASTr$LOC(SP)="BASE$LOC(^.?)  THEN 
RETURN  true; 

end; 
end; 

RETURN  EALSE; 
END  CEKiEXPR$TYPE; 


/  ^*  »t*  -1^  »i*  •!*  »»'  '1^  'i»  ^I'  5,i  ^'  5,s  ^  ;';  ^ 

: ;;: .-;:  :ffi  i^  i,t  i\i ifi  j;,-  j;:  ii  Hfiz^  j;: ^i  i^i  i 

*  0-  -j^  «>'  ^f  «•« 

*  't*  '1*  '1*  *i^  *y 

I^-  -,*  >,•  (^■^  *l*  t* 

5;:::ts;< 

*    COPYiSTACKS    - 

■    THIS    PROCEDURE 

DUPLICATES 

rntrv 

*    ST^CE    VALUES 

STORED    AT    ONE    POIiMTER 

LOCAT 

ION 

^'   AT    ANOTHER    SPECIEIED    POINTER 

LOCAT 

ION.    - 

*  s;s  i'fi  :Js  i'f  ^s  ;;s :;; :{;  j;; :;«  };j  ^s  ;;;  ;; 

*  s*,  ^.  u«  «•«  U*  ^0  «)«  «<«u#  «*«  a.  ^>«  ^<>  -•«  ••*  «• 

•  *,^  -.■»  *r  '(»  '1*  *»■*  1*  "o  '1*  '1-  '(-  '!»  'r  '1*  't*  ' 

0  gu  «*•  o«  «*#  .!« 

-  'I*  '1*  -I-"  "I*  ^^ 

jj  J*  y*  jt-  j<*  *•- 

;|;  j);  jj: 

COPY$ST^C^S:    ?^OC(A,    R)    PUBLIC; 

DCL    (A,    B)    t^YTE; 

TYPEiSTACX(A) 

=   "^YPE^STACKfE  ^  ; 

PRTiA_DDR(A)    = 

?PTiADDR(B); 

EXPRESS^STE(A) 

=   SXP^ESS^3TK(^ 

'); 

FORr^$EIELDU) 

=    EORN^iEIELL(P); 

BAS^$L0C(O    = 

3ASE^L0C(B); 
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vnD  ccPY^sT^cKs; 


-    rrTNFT'ATE$3UILTiIN    -    THIS    PHOCEDUPI    - 

*  GEMFPATFS    COLi:    FOR    TFF    PUILT-IN    - 

*  FUNCTION  .    * 

"I*  »i*  I*  "^^  f  1"  *>•  "•*  »»*  *t*  'fi*  '1*  *i*  't*  't*  •!•  'I'  *!*  I*  't*  '4*  o*  T"  'I"  'I-  '!»  'I*  't*  *•*  'i»  'r  'I"  *!'  1*  '1-  'I-  'r*  »i*  '.-«■»*   /        '  '  Jv    J   ^  jf  [J    J.  Li  1         i  i* 

pp.oc ; 

APTRAri'R    =   PAHM?'IUMLOC(M?)    -    2; 

IV    (3YTFPTR(?)    =    l.'^H)    CP    (BY'^FPTR(0;    =    073E)    TEFM 

CALL    C0?Y^3TACKS(^^P,    SP-l); 
EISF    i:XPRF?S$STK(MP)    =   FYTF^TRf0); 
/-    GFNFPATF    THF    Nn[-!CNIC    COE^    ^OP    THF    3UILT    IN    ^U'JCTICOJ 

APTFADlR    =   APTKALDP    -    i; 
DC    CASE    PYT'EPTR(f  )  ; 

CALL  GFNEPATE(ABS ) ; 

CALL  GENERATE^SCPl; 

CALL  C^NERATE(SIN); 

CALL    GE\iERATE(C03  )  ; 

CALL  GENERATE ^ARCTN ); 

CALL  GENEPATEdXP); 

CALL  GENERATE (LN) ; 

GALL  GE^JEPATE^SORT)  ; 

CALL  GFNEPATE(CDIl); 

CALL  GENERATE (EOLN) ; 

CALL  GENERATEfEXF); 

CALL  GEN^RATE(TPUMC) ; 

CALL  GENERATE (^OUNL  )  ; 

CALL    GENERATE^PRr ) ; 

Ca.LL  GENERATE  (CER); 

CALL  GENERATE(SUCC) ; 

CALL  GENERATE ^FREL); 
ENL;  /-  C^   CASE  ^V 

END  gen^puilt^in; 


/=i'  WRITEiSTRING  -  THIS  PPCCEDUPE  WRITES  -/ 
/*  A  STRING  TO  THE  INTERMEL.  COLE  -/ 

?ROC(NUr^^)    PUBLIC ; 

rcL  NUME  byte; 

CALL  gt^mepate(w?ts)  ; 

CALL   GENEPJ^TE(NUrP); 
ENL    ';/?ITE$STRING; 


/«>«  »t-  *•*  O*  *J«  »<*  ^'*  **>  *,»*  «•«  *t*  *>*  V*  »i*  *'*  *•*  »•*  *.»•  «fc'«  -.'^  *'^  «i*  *•-  »'*  »•*  *.'*  *•*  *i*  *'-  *■•  *•*  ***  »•*  ^*  5'i  »•;  ;';  *•'  »'•  y?  i';    / 

/-  VRlTEiVARIABLE  -  THIS  PROCEPrRE  V.'ILL  -/ 
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/-  W^IT^  A  ^^\HIAfIE  T^  THE  CONSOLE  VIA  -/ 
/:;:  THF  INTEPrEE.  COD?.  -/ 

/  5|:  >!{  5!j ;|<  si;  j|c 5|i  s;;;|i}];  ;i<;|;  ;j;  jj;};;  ^c?,:  i\~^,i ;;;;;:;;:  ;;;;|;  ;■,;  i\ii,i  ;;;^';  5;j^;;;;sl;  ^;^;;Ji  ;;;  a;; ;',;;;;  ;|j  /     V'  P  I  T '''^  ^  ^^  A.  P 

?HOC(NU^B)    PUPLIC; 

DCL  NU^B  "BYTT;  /-  Mr!^3E?  0?  wpiTE  PARA^S  -/ 
IF  NOT  REAEPfiR^S  THEN 

rO  CASE  EXFRE??$STK(MP); 
/-  ORE  TYPE  -/ 
CALL  GENERATE(V"RT); 
/'iJ  INTEGER  TYPE  ^'V 
CALL  G^*JERA'!'E(WHTI  ); 
/-  C^A^  TYPE  -/ 
CALL  GEMZRATS(WRTI ); 
/*  REAL  TYPE  -/ 
CALL  GENERATE (WRTE ) ; 
/*  STRI^IG  TYPE  -/ 

eg; 
call  wpite$string(nur^3); 
return; 
eme; 

/-  boolean  type  -/ 
CALL  ge.merate(vrti): 
EflE;    /-  C\SE  EXPRESS $sT?:(r,?)    -/ 
CALL    GENERATE(NUr^B)  ', 

ENE  w^ite^var; 


/  T-  "r  '1*  "nr  'j 


PROC 
I 

F 
CALL 

^r^j  Trp 

GENER 
GEMER 
GF^IER 

GENER 
E 
FME 


jij  ;*;  5*;  ^i  ;'t 

PEAE$VARIA 
TRE  INTERf^ 
FROM  TEE  C 

«•<  •,>«  «•<  ^»  ^'^  «U  -•'  «V  «'«  v<' 

'c  'r  '•*  'I*  'I*  'I*  'r  '»»  'i-  'r 

public; 

F    (TYPE^ST 

c/vll"err6 

LSF    EO    CAS 

generatf(r 
\'^e(stbi  ); 

ATF(^EVB); 
ATFfSTIE  ): 
^TT'CPETr)  ; 
ATE(STE); 
NET  /-  CAS 

rt^ab^var; 


3LE  -  THIS  PROCEEURE  GENERATES 
ELIATE  COEE  TO  FEAE  A  Va:=IABLE  = 
ONSOLE.  -/ 


ACXfS 

R(  'IP 
E  (TY 
EVI): 

ene; 

CALL 

ene; 

CALL 

ene;/ 

F  (TY 


Jljr- 


CASE 


T=)  <  09?)  OR  (TYP^^STACKf  3P^ 

'); 

PE$sTAC^(sp)  -  9);  ro; 

CALL  GEN$AErR 'LI TA. PR 
/-CASE  INTEGER-/  EC;/- 

GEV^AErR(LITA  .PRTAEER 
/-CASE  PCE-/  EO;/=;^CASE 
GVM$AErP(LITA  ,PRTAEER( 
-CASE  BYTE-/ 
PSiSTAC^'SP)  -  9)  -/ 


TAIL 
CASE 
(S?) 
BYT 
S?)) 


SE 
BC 

); 


REAE 
INTEG 

PM; 
r-/  c 

CALL 

CALL 
ALL 


SV4R: 

ER-/ 
CALL 
ALL 


-  ^$ I ^PROCEEURE  -  THIS  PROCEEURE  IS  CALLEE  - 

-  upon  recognition  of  a  built-im  proceeure  - 
*  state^:ent.  * 

1*  1*  'i*  *l*  1*  'n  T  'P  *!■•  *|*  'l*  *%*  »|*  *!*  *«*  ••*  'I*  *f  '•"*  *»■*  'I*  'i*  *>*  '•*  'I*  *"*  n**  'I-  *!*  'r*  't* 

B^IiP^OCEEUP^:  PROC; 


•  *r»  'I*  *!■•  1-  'I'  'I*  • 
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EASE  =  5ASiL0C(^^P)  ; 

CALL  SE'^^PAST^P^.'C?)  ; 

XV  ^YTFPT?(0)  <  ?2  TEJN 

DO  CASE  (BYTEPTRO)  - 

CALL  GENERA'"F(PUT)  ; 

CALL  GENERAT^(GET) ; 


17); 


HANDLING}  P^CCEDUPE  -/ 


CALL  GENERATE(RESET) I 
CALL  CENERATE(REVRT^ ; 
CALL  GENERATE (PAGE); 
CALL  GENERATE(NE'A  )  ; 
ENL;  /-  CE  CASE  (EYTE?TR(0^ 
ELSE  DC  CASE  (BV^FPTPle)  -  ?2 
PARAMETERS  -/ 

NEW?T^^T  ^  EALSE: 
DISPOSF$STK'"  =  EALS^; 
READ^STMT  =  FALSE; 
READiSTI^T  =  false; 
WRITE$STMT  =  F^LS^; 

D^; 

vpite^stmt  =  false; 

call  genepat^(dup.?); 
end; 

end;     /'■•=   OF    CASE    (EYTS?TR(0; 

END  ^^i^ppocedupe; 


-    17)    -/ 

;    /-    VARIABLE 


lUr^BFR    OF 


-    22^    -/ 


/  'I*  ^(^  'i'  5,t  3,'  5,»  5,i  *.,-.  ;,*  *,J  5,t  j,t  ^  : 

=:-  ^R?A^$LINKS 

-  SYMBOL    TAPL 

-  FOR    'I'FOSE    I 
^  THE    CURFE'lT 

-  DECRI!^F\TED 

«j«  y*.  *t,  o*  *t*  ^t,  ,1*  K»*  *o  *»*  *f-  o*  -t* 

'*»  'i*  *i*  'r  '»*  ^y"  '(*  'i*  O"  'I*  "I"  'i«  ^1* 


..t.  o«  .j^  o« 


BPFA'^iLHIKS:  PRO 

DO  VHILE  S^T 

RASE  =  SET 

CALL  SETAD 

IF  ((^YTEP 

do; 

CALL  SET 
SPTBL3C0 
end: 

ELSE  do; 

CALL  SET 
SYKFASE 
CALL  S^T 
RASPTABL 
CALL  SET 
SBTBLSCO 


-  TFIS  PROCEDURE  RE^'OVFS  TH^  - 
E  LOCATIONS  FRO^'  TFF  ^ASH  TABL^  ' 
lENTIFIEPS  THAT  '/.'ERE  LOCAL  1^    ^' 

scope;  and  THE  3CCP7  POINTER  IS 

BY  ONE.  - 

c; 

ELSCOPF  >  SCOPE  (SCOPE$N^-h  -  l); 

ilscope; 

DRPTP(4); 

TR(0)  AND  FORt^MASK)  =  7r)  THEN 

adlrptr(2); 

PE,  BASE  =  ADDRPiP; 


ADD?PTR(5) ; 

=  EYTE?TR(0) ; 

ADDPPTR((^)  ; 

E(SY^'HASF)  -  addrptr; 

ADLR^TRf2) ; 

PE,  BAS^  =  ADDRPTP; 


s^tblscope  = 

END  BREAK  Blinks 


SCOFE(SCO?E$Nl-^  -  l); 
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/* 


.  ^,  ■«<«  «*•  •J*  «•« 


>  »•«  «*>  u*  . 


SCC?^ 

IN'TF? 
A?OUN 


i^RA.NCE  -  THIS  ?R0CSrUR5  CENERATIS  TF"5: 
[MEDIATE  cor?  THAT  PER^'lIT3  ^?A\iC'-JING  '='• 
r  ANT  COLI  GENERATSr  FOR  SUPRCUTINES  .  = 


'  '^*  -r"!*  -I*  1^  '(*  1* 


SCOPE^RRAM 

IF  SCO 

lO; 

APTR 

CALL 

CALL 

emd; 
ENI  scc^e^erance; 


C^:  PROG  PU3LIC; 
PSiNTM  >  1  THEM 

AED^  =  PAPAr^NUf^LoC  +  ?; 
GEN$ArER^ERL,(AtrRRTR+l)); 
G^M$ADDR(LBL,ADDRPTR); 


-  LAPEL^MAKER  -  THIS  PROCEDURE  ENTERS  ALL  - 

-  L*^ELS  IN  THE  SYM.3GL$T\^L^ .  ='•= 


•  't*  't*  •^»  •^■* ' 


LAREL^MAKEH:    PROG    PUPLIC; 

jTT    'T'YPENUM    =    I;«'^E5ER^TYPE    '^'-I'^l 

Lo; 

CALL  EN  TER$ VAPi IE ( 2 , iP ,LAELi  ENTRY  ^ ; 
CALL  tNTER$LA3EL; 

eme; 
EN  I  lapel^^^aker; 


=:^  U3ER<TYPE  -  THIS  PROCELURE  PEPMITS  THE  - 
="  PLA'^EMENT  0?  USER  DEEINED  TYPES  IN  THE  ''' 
-  SYrROL  TARLE.  - 

USER$TYP:  PROC(A)  PUBLIC,* 

ECL  A  ryte; 
ty?e$loc':=sptel; 
ie  lookup ^cnly(sp)  teen 
call  error('dt'); 

CALL  ENT^R^VARiir(0,SP,TYPE^ECLE^ ; 
IE  NOT  PRESENT  THEN 

Eo; 
call  li^its(3^; 
aptraeer=srtbl; 
byteptr(3)=a; 

APTRAErR=APTRArDR+l ? 
ADEP?TR=PARErl'^$TYPE; 
SBTPL=SBTEL+3; 
END* 
END  USERiTYP; 
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/  ..'*  »•*  «■<* 

COUN 

SIT3-t 
PARA 

*i^  ••*  ji*  jij 

COUN 
DC 


DO 


HE 

TTNID 


T  ^  P  A  R 

OUT  IN' 
I^ETER 
^Y    T? 

T$PA?. 

L    T^^ 

(VU 

MPVAL 

1=1 
CALL 
APT?.  A 
17  BY 
ELSr 
IF 

ELS 

4 

T  T  f>/  p  T^ 

e; 

TURN 
COUN 


A$EYTES 
P  C^  3Y 
E  CALL. 

F  S*V? 

AirYTFS 
PVAL  AD 
M^OF^PA 

=0; 

TO  NUM^ 
SFTiPAS 

rrR=ADr 

TiPTH( 0 

LLC$OTY 

ILC^OTY 
U=TF^'? 


;;: :;: :;: ;;:  ',\i  i\: ;;;  ili :;;  i,:  i^:  -^i ;;; ;;;  ;;;  ^,;  -,;:  j;; ;;-.  ^;  :;; 

:^:j;:  ;;:;;: 

:;;;;:;;;;;:;;;:;: 

•V 'i' 5,i;,i  i,t 

-  T?I5  PPOCErURF  13 

USED 

"TO  - 

-  rETER^  IMS 

TES  ASSOCIATED  WITH  '-^ 

;;;   m 

HE  PA- 

AKFTEPS  C^  A 

THIS  '^^  -  INFORMATION' 

13 

NECFSS 

ARY  TO  AILOi^ 

FPING  FHO!^  T-E  EXECUT 

ION 

STACK 

INTO  THE  PRT 

OPERATION .  - 

»'^  v'*  *'*  *•*  *i-  V'  *'*  **•  »•*  V-  *'•  »'"  ^'*  *•-  ^'«  »•'  *'■  V-  »'-  »'*  *'* 

'**  *!"»  "l"  '1*  "I*  '  *  '1*  'f»  '.-•  V  '1"  '1"  *.*  *!*  'l»  '1*  t"  *>-  'i'  I*  -l" 

:;;c;;c;;;5;; 

;;:;;:  ;;;i;s}',;5;; 

::;;:;;:'c^/ 

:  ?^OC(N'UM$OF$  PARAS) 

A  DDR 

• 

DP, 

HAS, I)  pytf; 

OF$?APiS; 

Ti?v(6) ; 

rptr  +  ( (i-i)-3); 

)=0^F  THEN  ALLC$CTY=? 
(£;)=! BE  THEM 

=8; 

=i; 

VAL  +  ailc$cty; 


TEVPVAL; 

t$para$ bytes; 


'  "v  'i*  *»*  't*  'r  'I'*  '»■•  'r" ' 


-  C-EN^FCN^HDR$SIZE  -  THIS  PROCEDURE  13  USED  TO  - 
♦  DETERMINE  THE  NU^^FER  OF  BYTES  ALLOCATED  IN  - 
'''    TH^  PRT  FOR  A  FUNCTION  NAr^E.  - 

C-EN$FCN^FDR^SnE:  ^^CC  ADDR;  CALL  SET^PAST^  PN^  f  16  ^  ;  IF 
BYT^PTR(e)  =  0BH  THEN 
RETURN  02H;  ELSE 
IF  PYTSPTR^0)  =  IP?  THEN 

RT^TURN  eBH: 
ELSE 

RETURN  01 H; 

END  ^fn$fcn$hdp$3ize; 


PROiFCN$RYTESIZF  -  THIS  PROCEDURE  RETURNS  THE  -  -  NUMBER  OF 
BYTES  ALLOCATED  IN  T^E  ^RT  FOR  A  PRO-  -  -  CEIURE  OR  FUNCTION 
DECLAPATION.  THIS  DATA  IS  -  -  RECUIRED  TO  ALLO'*'  pi.RirFT^R 
MAPPING  INTO  THE  PRT-  -  BY  A  SAVP  oppp.ATOF.  - 

*,*-,*  'I* 'I*  ',-  "o'l"  -^^  -r  '. , .-'i-'i'  »i«*i*  'i-'i"'.-  -i-'i-'i* '1*  i*'i*  'i*  'i»'p  'I- 'I*  'I"  -t"  '. p '.--»*  'I'-i-'i*  'i*'!*'!-  '.-  '*-".*  'I-  'I"*"  -I"  / 

PR0$^CN$1YTFSIZF:  PROC  ADDR;  CALL  SFTADDR?TR( 4 ) ;  IF 
BYTEPT^O)  =  34:H  THEN 
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:??TU^N    32^',    ?LSZ 
RETURN    ^EMiFCN$HE-^SI?E; 
•Mr    P^0i^CM$BYTFSI2F; 


SETS 


=  S 
=  C 
=  3 

=  A 

AV 
LC 

PY 

LA 

ro 


FMD 


EM 
S 


FTS  A 
ALLE 
LCCK 
I0\' 
MI  T 

«.•«  «■«  «*^  «'« 
1*  *^»  *,*  -1* 

E^^L 
T,  BY 

CO 

TE^C 

ST$S 

SCO 

P  A  S  E 
CALL 
ADI.T? 
ALLO 
CALL 
TFf^F 
CALL 
CALL 
3YTF 
CALL 
CALL 
CALL 
CALL 
C«LL 
CALL 

d; 

ETSA 


E$ 
U 

I 
0 

IS 


Ei 
MT 
UN 
TP 

E$ 


3LCCK  -  THIS  P 
PON  lETFRMINAT 
T  INCRIKENTS  T 
PE^MT  T"E  INS 
ALLOWS  FOR  R^ 

':   PRoc  public; 
counter  aldr, 
byte; 

TEP  =  '-^; 

L$ir  =  SB'^FL; 

MUM  >  1  THEM 


ROCEPUPF  IS  ■'■' 
ION  OF  A  SUP^OUT 
FE  PRT  BY  ONE  LO 
FRTION  '^I    T^y    5^ 
CURSIVE  CALLS.  - 


I M  E 
CA- 
P=  = 


=  PA 
SET$ 

PTR  = 

C$ADL 
S^TS 

ALCR 
GENi 
G"M^ 

^COUN 
^EMi 
SFT^ 
GF\'^ 

<^    Hi 

GENE 


R^'NU^' 
PAST$ 
ALLO 
R  =  A 
PAST^ 
=  PYT 
AILRf 
ADER( 
TER=C 
ALLPr 
PAST^ 
A  E  ER  ( 
PAST^ 
ArER( 
?ATE( 


LOC(SP 
PM(12); 

c^addr; 

ILOC$AE 
PN(7); 

FPTR(2) 
LriI,TE 
LEI  I. PR 
OUNT^PA 
LEII.PY 

PN(i0); 

IITA,AE 
PN(12); 
LITA.AB 

SAv?) ; 


-5); 

/-  SBP  -/ 

ER  +  2; 

AND  3FFH; 
MPAEPR  ) ; 

0$?CN$BYTESI7E); 
RA$BYTES (COUNT) ; 
'^E^COUNTEP)  ; 

ERPTR); 

EPPTR)  ; 


s;s/ 


vf^block; 


-:-  H^AD 

-  SUBR 
*  PROC 

-  COE^ 

-  PARA 

J,  ,1.  .1.  ,•.  O.  .1. 
'y-  •>-  '!•  -1-  -.-  -,- 

hfal^m^bl 

BASE 
CALL 
CALL 
CALL 
CALL 
CALL 


*u  J*  *•-  v»*  «i*  , 


^AME^BLOC 

OUTINE'S 
EIURE  IS 

FOR  UNSA 
^ET^'o.S  IN 


^:  P 

=  PA 
SET^ 
GTrM$ 
SET<^ 
G  EN  $ 
Gl^ME 


ROC  P 
RMNUM 
PJ\ST^ 
ADCR( 
PAST$ 
AEER( 
RATE( 


K  -  UPON  R 
HEADING  AN 
CAILEE  TO 
VI NG  THE  S 

T-E  EVENT 

«i,  «t«  o«  «•«  «•«  «i.  «i«  «o  ^,  ^t, 
,,,  *,*  -J*  ,^■.  ,,*  *,-  ,p  *,*  *,%  *,* 

UBLIC; 
LOC(MP)  ; 

PNf 12); 

LTTA.ADDRP 
PN(10); 
LITA .AELRP 

UNSP); 


EC 

r; 

U^ 
0 


oaNT 

BLOC 

NFRA 
ROUT 

F  RE 


TIOM 


IMF 
CUR 


TH 
RE 
'S 
SI 


OF 
IS 

cu 

VE 


IRE! 
CAL 


LS 


TR 

TR 


); 
); 
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CALL    l^^FAK$Li:^KS; 
BASE    =    PARMNuTiLOC  (MP)  ; 

SCOP?SMUM=SCOP£iNU^-l ; 

C4LL    C-TNFRATF(PTN  )  ; 

CALL    SET$PAS1$PM(14:)  ; 

CALL    C-FN$ALrE(L?L,  (ALERPTR+l  )  )  : 

T^MPADDE    =   i^f^H; 

CALL    GFNUrDP(LriI  ,TEKPADDP  )  ; 

CALL    SET$PAS7$PNf 12); 

CALL    G?N$APDR(LTTA  ,ArLPPT?. )  ; 

CALL    G^NE^ATE(STri ) ; 

E.MD  feal^nsblk; 


/  '(''i*  *ti'|*  S|i  *i'  *i'  '('';'  *t*   '1**1*  ^1*  'i'  *|-  'l'  't*  'i'  '»•  '1^  '.'  *|'  '(''i^  *!*  't"*!*  'l'  'l' 

*    EORVARr^STTpROUTlNE    -    I  ^J    TEE 

'i'  'i'  'i'  '1*  ^t'  5,»  5,C 

EVENT 

','  '1*  ^'  '»*  '1*  5i'  '.'  'I'  5i'  ';'  '.'  -r 

OF    A   - 

-    ^OPV.'ARE    DE7IN2L    SU3FCUTINE, 

THE    AL 

LCCATED    "=' 

-    SPACES    U'    THE    P^T    FOR    TFE    P 

OUT INF 

ANF    ITS    ='^ 

*   ASSOC  lATSr    PARAMETERS    ARE    !• 

^-alloc 

'TEI    AM    '•' 

'■'    'a'ILL    be    re  ALLOC  a -^ED    AT    THE 

PC  IN"    0 

f'tH^   :;= 

-    S'TBROUTIME'S    DEEINITIOM.    - 

i't  5li  ;'i  ;';  ;*i  *';  *'•  ^jc  *'•  ^c  **-  *•'  **•  *'-  *'*  "'••  *'*  *"*  **•  V*  *•'  y*  •■'-  *'*  ^•-  ***  *•*  *'•  *** 

»•*  jl-  O*  ,t,  ^.,  ^t,  ^u  k'*  O-  O-  ^l-  *•* 

"A   *»    1   'l*  '1*  '1*  *i*  *V"  *!*  ^   *!*  1*  •"(*  'I*  '(*  *!*  '4*  'l'  'l*  '1*  'l*  '1*  '1*  'l*  'l*  '1*  'l*  't*  '1* 

EWL^SUBRTN:    P^OC    PUBLIC; 

'»*  '1*  'I*  '1*  'p  'f*  '1* 

SCOPE^.MUM    =    SCOPE^NUM    -    i; 

APTRAFLR    =   PARA^NUMLCC    +   3; 

ALLOC^DrP    =    ADFFPTP; 

END  f\l-sij^rtn; 

/  V'  *'*'  "J*  V*  *'*  v"*  <*'*  *'*  *'^  *'*  V*  %'^  ••*  »•*  «>i*  *•-  %•*  *•*  *><•  *y  *!*  k'rf  «.»*  *'»  »»*  •.'**'*  n'*  *'*  *•-  fc»^  *'•  *t*  »•*  iJ**'*  » 
/  n*  't*  '(*  *!'•  T*  '1*  '!■*  »i*  '.-  "1"  •'i*  't*  T*  •■■•  *r*  1*  '1"  'i*  *%*  'r  '1*  t*  'i'*  'I*  'i"  '>"•  '»*  'i*  *!*  'r  n"*  *»■•  '1*  'k*  "t"*  '»*  ' 

-  »"^  *'*  •.•*  »'-  *•*  *'* 

-    GQTiPARAMETERS    -    THIS    PPOCEIURE    13 

CALLED 

-    CNCF    ALL    A    SUBROU'^INE'S    PARAMETERS 

HAVE    '■^'' 

*!=    BEEN    RECOGNIZEF    A.NL    ENTERED    IN    TF^ 

SYMBOL 

-    TABLE.    TEE    NUMBER    OF    PARAMETTTRS    AN: 

:    THEIR 

-    ASSOCIATED    TYPE   ARE    TE^N    STORED    IN 

THE   - 

^    SYMBOL    TABLE.    - 

*l*  *t*  *!.»  O*  *«,  ^*  ,»*  ^^  *»*  *l*  ^1*  a,  ,1*  ^t,  ^*  vi*  *>-  *t*  *»*  *"*  »i*  *»*  %»*  *•*  »»*  -i»  *t-  *>*  *«*  *>*  ^'*  ^t-  *»*  ••-  *•*  "A.  ^ 

*(*  »»•»  *,»  '(■•  '(^  »|«  *,»  *i»  ^i*  ^l*  «,V|«  *i«  *,*  *,»  *,»  >,*  *,»  *,*  *,!>  -,»  *4-  J,»  *,-•  ',".  ',*')*  'I*  '(»  •^'  ',>  '|-  "!■*  'l*  '»■*  '(*  ' 

-  *t*  ;»-  ;'-  j'-  j»*  *l* 

aOT^PAFA^^S:    PROC    PUBLIC; 

APTRADDP    =    PARAMNUMLOC; 

BYTFPTR(P')    =    PARAMNUM; 

CALL    ENTR^PRMiTYP; 

EMD    GOT^PARAMS; 

-;--  / 


*  SET^OP^TYPE    -    THIS    PROCEDURE    IS    CALLED    TO 

*  LOAD    TEE    TYPE    0^=^    OPERATOR    USED    IN    AN    EX-    = 
-    PPFSSION.    - 

*•*  J*  «ltf  *,»*  %l*  «l^  »^*  «V«''  »•*  »I*^IU  V«  k**  *■«  <■.*««>*  •**  ***  *J****  *•*  *0»**  «•*  *'*  v'*  »l«  »t,  ^^  *J«  *<,  »•*  »»*  y*  »l*  «'-  »•*  *'*  *••  »'*  *•*  fc'*  ; 
*»*  *|*  •!*  *|*  *!"*  ^i**,*  #,%  *i^  »(«  »|i*<i|*  ?|*  »|«  «|«  *,*■  ir|«  *,*  *,»  *|*  ^w  *^»  'I**!*  '.'  'l*  'I*  'l*  'l*  'I*  'I*  'I*  'l*  'I   't*  'I'  '.'  '1**1*  'I*  'l*  'l'  'l*  ' 

S^T^OP^TYPE:    PROC(A)    PUBLIC; 

DCL  A  byte; 


-::  / 
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type^stack^mp)=a; 
YHV  set$op$ty?e; 


-  CALL^A$^ROCErijBE    -  THIS    PROCEru^.E    IS    CALLEI    - 

-  TO    GENERATE    INTERf^Er lATE    COPE    UPCN    -' 

1'    IMVOKING   A    SUBROUTINE.    T^E    VU^PER    ^J   " 

-  PARAVF:TERS    RECUIREP    IS    ALSO    CFECKET  .    - 

*fi  ^*  *!■•  'i*  *i»  5|*  *i^  *i*  *|*  ^»  *|»  *i*  *i|*  5|i  *|«  r,C  J|*  5|>  5|»  *,*  ?('  f ,«  <^C  #|«  *,C  ^«  f I*  5(i  5|C  ?|C  #|C  •(*  *|€  *,'  Ji*  «|X  #|C  J^?  5,C  J,C  *,»  5,»  *,'  i,C  *,'  J,'  *,'  S^S    / 

CALL^A^P^OC:  P^OC(A)  PUBLIC; 

rcL  A  eyte;  /-  true  or  false  -/ 
p^?4DPAP^^s  =  ealse; 

IE  A  THEN  /-  THE  SUBROUTINE  FAS  PARS  METERS  -/ 

ro; 

IE  PARr'NUM(i^^p)  <>  PAR^NUM(5?-1  )  THE^J 
CALL  ERROR  CPN")  ; 

end; 

ie  ser(eor^^$eield{^"■p)  ,3)  then 
do; 

IE  EORv$FIELL''r^P)  =  ePE  THEN 

CALL  GENiRUILT^IN; 
ELSE  CALL  R $1 ^PROCELURE; 

end; 

ELSE  LC; 

IE  EORM^^IELD(^'P)  =  FUNCiEN'^RY  THRi^^ 
CALL  LOAr$VARI  (vip); 

ELSE  do; 

CALL  aEN  $ADrR(  PRO,  LABS  LS  TA  CK  ( r^P  M  ;  ' 
CALL  GSNERAi-EfDEL)  ; 

end; 
end; 

END  CALLiASPROC; 


/^i 


C*'*  »'*  *A«  «l^  V*  »'*  ••*  *•*  *'*  *■'  **' 
f*  'i*  'i*  '(*  -!■•  '»*  1*  *X^   'i«  *1*  *i' 


o«  *•*  *•*  «k'*  •^^  «J*  *»**o  *'* 

"t*  »»*  1*  T*  *l*  *!"*  1*1*  "I" 


* 


GOT $ FUNCTIONS 

THE  TYPE  OF  T 
TABLE  AND  ALL 
FOR  TT^E  FUNCT 


TYPE  -  THIS  PRO 
HE  FUNCTION  IMT 
0CATE3  A  POSITI 
lOM  VALUE  TO  EE 


CEE 
0  T 
ON 

qryi 


*•*  y-  U- 

*r  1*  1* 

URE 
HE 
IN 
ORE 


3Y 

r 


N  Ti!.R 

M30L 
E  PR 
IN  . 


S    ^:-- 


'I*  'i'  ^  '('  'i'  'I*  ^*  '!»  *i'  '(»  *i*  n*  1*  1*  *r  1*  1^  '1*  I*  'o  ••'  1*  '(*  •»*  *»'  '1^  '1* 


c*/ 


GOT^EUNC 
EASE 
CALL 
BYTE 
CALL 
ALLO 
A  LLC 
END  GOT 


^TYPE:  PRO 
=PARV"NU^LO 

SET$PAST$ 
PTR(0)=SHL 

SE'^$PASTi 
C$ADDR  =  A 
CiADDR  =  A 
$FUNC$TYP2 


c  public; 

c^i^p); 

PN(i6); 

(alocbasictyp,3)  or  var^entry; 

PN(ie); 

ddpptr; 

lloc^addr  +  allc^oty; 


165 


/  SjC  *j*  *,»  5i*  5J*  5jV  5,*  3,«  3,i  Jj*  *ji  J,C  ^4  5,1  ifi  ^i  5,«  J,t  *,S  S^J  2|C  »,*  f|^  »,»  5jS  «f,S  J,*  5,t  5|S  J^C  ijt  5,*  ^C  5^1  *^J  rjS  *|»  *,*  3)«  *)*  *|»  *|".  *|«  *,»  *,>  ■ 

*  ENr$PROGRAM  -  THIS  PROCEDRE  IS    CALLEL  UPON  = 

*  RECOGNITION  0?  TEI  END  OF  A  ??CaR«K.  IT  - 

-  POINTS  OUT  THE  ERROR  COUNT,  CLOSES  THE  - 

*  INTSRMEriATE  ilLE,  WRITES  THE  SYN'EOL  TAILE  '■ 

*  FILE,  AND  INFCPKS  THE  PPOGRA^^.MER  OF  PBCGRAI^= 

-  COMPILATION.  '■^ 

'r  "S*  ^1*  'i''  *v*  'I*  1^  •!*  -^  'I*  1*  '1*  1'  'f  'i*  -r-  "o  'i-  -t*  f  'I-  -1*  -I*  'I*  3.-  '^*  i^  5^  'i»  'i*  5,i  ^  *,»  5^  5,*  ;,*  -,* 

END$PROGPAM:    PROC    PUBLIC 

CALL  p^int^error; 

CALL   ^RINTCHAR^ '    '); 

c\LL  crle; 

IF  NOT  (ERROECOUNT  >  0)  THEN 

lo; 
call  gem$addr(all,alloc$addr); 

CALL  generate(end?)  ; 
Simd; 

CALL  writ$int$eile; 
CALL  i^ove^srtbl; 
CALL  close$int$eil; 

CALL  PFINT(.('  compilation  COMPLETE. $  ')); 
CALL  M0N3; 
END  SNDiPRO^RAM; 


•  •!*  1*  -I- 1*  *!'  'p  •!*  *t*  T*  •!*  n-*  «^'•  I* 


/o^  «>■«  *,**  *.u  v>  «*«  «■«  «i#  kJ*  «l«  «<««ij>  o«  «'«  «<.»  «i«  «<*  «.*«  «v  ^V  t^'  **'  **•'  o^'  «.'»  *•*-■«  «'«  *v  ^i«  V-  «>'  •»>--  *•' 
#r*  n**  n^  t*  'i*  «ir*  'I*  'i"  *i*  •1*  ^*  't*  'I*  1*  1*  •^'^  '•*  I'*  'I*  *»*  't*  *»*  *!*  'I*  't*  '!**»*  'i*  'I*  'i*  'i*  'i*  *if  *>■• 

*  ARRAY^rSCLARS  -  THIS  PROCEDURE  DETERMINES  - 

*  AND  STORES  SYM3CLTA3LE  INfO  ON  4RRAYS.  - 
'^  THIS  PROCEDURE  ^AILS  TO  MAKE  USE  07  THE  =•' 
J  PARALLEL  PARSE  STACKS.  - 

1*  n*  'I*  *!*  *l^  ♦»*  *l*   'I*  *P  'I*  'r  'I*  '»*  '»•  '!»   V  'P  *>*  'l*  'I*  ***  'l'  'I*  'r  '»»  ')*  *l*  'I*  'P  *!*  V  *»*  n*  '»•  V  '•*   'i'  '1*  '»»  'P  •!*  *!*  1*  'P  'P  '•*  'P  'P     / 

A^AY^DECLAPE:    PROC    PURLIC* 

DCL  I  eyte; 

IF   ARPY$PTR    =   -1    THEiJ    ARRY$FTR=0; 

CALL    ENT^iCPLX$TYP(17H); 

AR^$^^^<ADR$PTR=ARYiDM$ADR^PTR-NUMt^ARRY$DIM(ARRY$PTR  )  ; 

ARRY$545v=baSE; 

CALL    LIMITS( ( NUMlARRY$DIM ( ARPY SPTP  )-4)+6  )  ; 

CALL    SETALrR?TF(5);    /-NUMBER    OF    DIMENSIONS-/ 

3YTEPTR(0)=NUM$ARRY$DIM(APRY^PTR); 

CALL    SFTADDRPTR(e)  ;    /-ADDRESS    OF    COMPOi\ENT    TYPE-/ 

ADDR$PTR=TYPE^LnCT; 

call  allc$0ffse'^(ty?e5l0ct)  ; 

base=arry$basf; 

call  setaddrptr(8);   /-total  storage  requnsd-/ 

addrpt?=a.rry^cty(  \rry$ptr  )-allc$cty; 

CALL    SFTADDRPTR(12)  ;    /-COMPOiNiENT    TYPE-/ 

eyteptr(0)=alccrasictyp; 

/  *»>  '1^  '»'  'p  1*  'r  '1*  'p  'P  *»*  'p  'P  'p  *i'  'p  *!'  '»•  *!*  'p  'p  'p  'I*  'p  'I*  '»*  *p  *i'  'p  'p  'I'  *»*  'p  'p  't*  'p  'p  *»*  'p  't*  '»^  'p  'p  '»'  'p  'p  '•'  '•*  't^  'p  'p  'P 

THE  FOLLOWING  CODE  CALCULATES  THE  OFFSET  AND  DIS- 
PLACEMENT VECTORS  FOR  EACH  ARrAY  DECLARATION  A3 
FOLLOWS: 
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Vv'ei:f.e  n  =  tr  diiYynsio'is  ln  this  ap-ay, 

r(I)  =  DISPLACEKEN'T  VECTOR  70R  ITH 
U(I)  =  UPPZ.l  BOUND  0?  ITH  /VRP.AY 
L(I)  =  LOVER  POUND  01  IT'T  APRAY 
V  =  CEFSET  EOR  THIS  ARRAY 


.*  ^  R  A  Y 


FOR    I    =    I\i    DOV/NTO    1 

IF  I  =  N  THEN  D(I )  =  1  FL3E 

D(I)  =  (U(I+l)-L(I+l))-Dri-l) 
V  =  V  -  CLCD'i^Da)) 


+1) 


ARRY 
SU^R 
DISP 
ARRY 


$OFFS 
$FORM 
$VEC( 
$OFFS 


;>i.};:>;j);5/ 


SUPR 
DO  \ 


ARPY$ 
(ARRY 

nsp 

$FORr^ 

HILE 

SP$VE 

( APR 

ARR 


ET  =  0 
=  ;NU^' 
SUER^F 
ET  = 
OFFSET 
$DIMiL 
^V£C(S 

=  srp 
SUBP^F 
C(SUER 
Y$DI^'i 
Y$DIM$ 


;  /-IN  IT  FO 
$ARRY^DI^.(A 
ORtY)    =   i; 


R    ZER0-ORIGIN-/ 

PRY$PTR); 


OVVAL(ARY$DriADRiPTR    ^    SUPR^TORf^: ) 

UBR^FOR>^)  )  : 

R$FGRM    -   i; 

OR^!    >   d'f 

$FORr^)    = 

HIVAL(ARY$D 

LOWVAL{ARY$ 


i^$ADR^PTR    +    SUIR^ 
DN^$ADR^?TR    +    SUPP 


FCR'^  ♦ 

SFORf" 


1  ; 


AP 


SI- 
EN 
CALL 
ALDR 
CALL 
DO  I 
AD 


AP 


nsp 

FY$O^F 

ARRY 

(ARR 

DIS 

PR i FOR 

d;    /-D 

SETAD 

PTR    = 

SETAD 
=1  TO 
DRPTR 
TRADDR 


^V£C(SUBR$FCR^  +1) ; 

SET  = 

$OFFS 

Y$DI^ 

F^VEC 

r.  =   s 

0  'aHI 

LRPT^ 
ARRYS 
DRPTR 


771  m 

$LOW 
(SUB 

;UPR$ 

LE^V 

(11) 

■  OFFS 

(13) 


VAL(ARY 
REFORM) 
FCR^*  - 


$D^$ADRiPTR  +  SUBRSFCRY 

); 

1: 


DIMEN-/ 


;  /-OFFSET-/ 

ET  *  allc^oty; 

;  /-ADDRESS  OF  DIi'^.E^SION  1-/ 
MUM  ^  AR R  Y  $  D I  r  ( A R  R  Y  i  PTR  )  ,* 
=  ARRY$DIMEN  (ARY^D^:<AER$?TR  +1): 
=  APTPADDR  +  2;  /-DISP  VFCTCP  ^OR  THIS 


END 


AD 

AP 

EN 

TY^E 

SBT3 

ARRY$ 

ARAY$ 


allc$qty; 

/-SET-UP  FOR  iVFX' 


drptr  =  disp$vec(i )  - 
traddr  =  aftradd?  +  2; 
d; 

^LOC'^  =  B'ASE* 

L=SBTBL  +  (  (NUM$ARRY$Dir^.(AREY$PTR)-4:)  +3) ; 

PTR=ARRY^?TR-i; 

declare; 


/  'fi   1*  '1'  *l^   n*  *»'  'l*  »t'  *l'  'I*  'l'  *1*  *»'  *l'  *»*  '»*  *!*  5|*  *»*  '1*  *(•  *l*  ^*  'P  '»'  *!*  '1*  *'*  '1^  *»'  'l*  V  *l*  '."  '1'  ^"^  '.'  't*  't*  '1*  't*  '1*  '1*  'i"*  'P 

-  FIND$REL0P  -  TEIS  PROCEDURE  DETERMINES  - 
«  WHAT  ^'^'EUMONIC  SHOULD  BE  GENERATED  FOR  ANY 
'■'  RELATIONAL  OPERATOR.  - 


'  ?!*  -1'  't'  -i'*!*  ••*  'o  '»*  *i*  'r  *»*  '1*  'I*  't*  '1* 


'r  1"*  1*  n*  1* 


-/ 
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7INC 


END 


vm' 

r^  CAS 

A   — 

A  = 

A  = 

4   = 

A  = 

A  = 

IF  F 

ELSE 

smb;  / 

DC  CA.S 

/'-    0 

IF  ( 

FLSF 

/>:'-  I 

;  /- 

/-  c 

;  /- 

/*  H 

A  = 

/-  S 

A  = 

/-  ^ 

;  /- 

ewe:  / 

CALL  G 

EXPPES 

FINIi 

:  pp.oc  public; 

i    (TY?E?STACK(^?Fl)-e) ; 

ECLi; 

NFOi; 

LEQi; 

aici; 
Lssi; 
GPTi; 

XPRFSS$STK(SP)    <>    ORD$TYPE    TEEN    CALL   FHHOP ( 'CF' ) ; 

A  =  xin; 

-  CA^S  (TY?E^STACK(i^FPl  )-S)  -/ 
F  ?XPFFSS$STK(3P); 
HP  TYPE  -/ 
A  =  LSSI)  OR  (A  =  GRTI)  THEN  CALL  EP^OR('CE'); 

IF  A  <>  XI N  THEN  A  =  A  +  19; 
NTEGER  TYPE  -/ 

NO  'OFFSET  RECUIRFI  -/ 
HAP  TYPE  -/ 

N"n  OFFSET  REQUIRED  '^V 
E/L  TYPE  -/ 

A  +  ?; 

TFING  TYPE  'V 

A  +  13; 

COLEAN  TJ^E  -/ 
NO  OFFSET  RECUIRFD  */ 

-  OF  CASE  EXPRESSiSTKfS?)  -/ 
FNFRATE(A); 

3iST^(hp)  =  BOOLEA\;iTY?F; 
RELOP; 


END  SYNTHi; 
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SY^THP.SPC 

iPACEVir"^E(80)  TITL^( 'SYNTH?  -  PRCLUCTION  CASF  STATEMENTS') 
SYNTH2:  DO; 


rSCLARE  LIT  LIT 
rCL  LIT 
PCS  LIT 
NEG  LIT 
PPOC  LI 
TRUE  LI 
A  DDR  LI 
FALSE  L 
EORE"ER 
STATFSI 
3TJILT$I 
CONSIST 
CONS$NU 
CONS$ID 
CONS$SI 
IDENTSI 
VARCSIZ 
PS  TACKS 
HASH TEL 

pcrsizE 

^'AX^NES 
ARRY^NE 


ERALLY 
'DECL 

'1'. 
T  'PRO 

T  'ADC 
IT  '2' 

LIT  ' 
ZE  LIT 
N$?ROC 
RETYPE 
r^^TYPE 
ENT$TY 
rENT$T 
ZE  LIT 
E  LIT 
IZE  LI 
SIZE  L 

LIT  ' 
T  LIT 
ST  LIT 


'LITERALLY',  EXT  LIT  'EXTERNAL', 
APE', 


CEDLTRE', 
RESS', 

WHILE  TRUE', 
'ADDRESS ', 
LIT  '0CH'. 
LIT  '2', 

LIT  'e', 

PE  LIT  '1', 

YPE  LIT  '2';  ICL 

'32',  /-  r.AX  IDFN^'IEIER  SIZE  -  1  -/ 
'132',/-  SIZF  Of  VAPC  STACK-/ 
T  '46',  /-  SIZE  OF  PARSE  STACKS  -/ 


SIZ 
CK- 
STA 

IT  '128',/-  SIZE  OF  HASETABL 

VA 

EC 

L  E 


/'''  BYTES  USED  FOR  BCD 


-/ 


'3'   /-  MAXLEVEL  0^  NESTS 

'4  ,  /-  r^Ax  NESTnG  leve: 


LUES 
R  TYP 
OR  AH 


-/ 

ES  -/ 

FAYS 


^AX$ARRY5DIM  LI 


/-=    ^AX   /RRY    rii^EMSICNS    -^ 


/-    FOR!^.    ENTRIES    -/ 

LABLiENTRY  LIT  'e', 
CONS$ENTRY  LIT  'l', 
TYPE^ENTRY  LIT  '2', 
VAR^ENTRY  LIT  '3', 
PROC$ENTRY  LIT  '4', 
FUNC^ENTRY  LIT  '5' . 
FILEiENTRY  LIT  '6', 
TYPE^DCLE   LIT    '7' , 

/-  NU^3ER  TYPES  ^'V 

ORD^TYPE  LIT  '0', 
I^ITE5ER$TYfE  LIT  'l'  , 
UNSIGN$EXP0N  LIT  '3', 
STRIHG$TYPE  LIT  '4', 
BOOLEAN$TYPE  LIT  '5',* 

/-  MANY  OF  THE  FOLLOV.  ING  VARIABLES  CAN  BE  REPLACED  BY  ^AKI^G 
USE  OF  TEE  PARALLEL  PARSE  STACKS  -/ 
DCL  NUr^iAHRY^FLKTS(?5)  ADDR  ,  APR  Y^D  IM$LCWVAL  (  ?5  )  ADDR 
PUBLIC,  ARRY$Dir^^HIVAL(25)  ADDR  PUBLIC,  TErP^BASE  ADDR, 
EXP$CTR  BYTE,  EXP$CTR1  BYTE,  DISP$VEC(25)  ADIR  PUBLIC, 
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APHY$OFFSY'^  A.DDR  PUBLIC, 

SIGNTYPE  BYTE  EXT, 

VECPTR  PYTS  EXT, 

TYPENU^  BYTE  EXT, 

CONST$PTR  BYTE  EXT, 

STARTEBOS  Arr?,/-ArrR  OP  PTR  TO  TCP  OF  PLCS-/ 

TYPFSADDR  ADDR  EXT, 

TYPE$LOCT  ADDR  EXT, 

VAR$PTR  BYTE  EXT, 

VAR$PARM$PTR  BYTE  EXT, 

AL0CBA3ICTYP  BYTE  EXT, 

ARR^$OTY(MAX$ARRY$tI^^)  ADDR  EXT, 

VAR$BASE(1C)  ADDP  EXT, 

ALLC$QTY  ADD^  EXT, 

TYPE$ORrsNU^'  BYTE  EXT, 

PAPENT$TY?E  *DDR  EXT, 

C0NST$INDX  BYTE  EXT, 

L00KUP$ArLR  ADDR  EXT, 

C0NST$PN$PTR    BYTE    EXT, 

ARRY^PTR  BYTE  EXT, 

ARRY$DIMiPTR  BYTE  EXT, 

PTRPTR  BYTE  EXT, 

TAG$rD(MAX$MEST)    ETTE    EXT, 

VAR$CAS$TP(i^.AX$NSST)    ADDR    EXT, 

VAP$CAS$VAL(^'AX$NEST)    ADDP    EXT, 

?EC$NST  BYTE  EXT, 

RECORD$PTR  BYTE  EXT, 

R^CHDDRd?)    ADDR    EXT, 

^EC$PARiADR(yAXSNIST)  ADDR  EXT, 

VARIANT$PART(MAXiNEST)  BYTE  EXT, 

FXD$OFST$BS^(MAX$.NEST)    ADDR    EXT, 

VAP$0FST$BSE(MAXiN£3T)    ADDR    EXT, 

CUR$OEST(MAX$NEST)    ADDR    EXT, 

NU^l$*RRY$DIr(MAX?APRY$DI[^)    BYTE    EXT, 

APRYiDIMEN(25)    ADDR    EXT, 

ARY$DM$ADR$^TR    BYTE    EXT, 

/-    CASE    STATEMENT    VARIABLES    -/ 

CASE$STK(12)    BYTE    EXT,/-    NUMBER    OE    ST.^TS    IN    CURFENT 


CASE    */ 


CASE$COUNT    BYTE   EXT:    /-    LEVEL    Qy    CASE    ST^TS    -/ 


/-    GLOBAL    VARIABLES    -/   DCL   BCDNUM (BCDSI ZE )    BYTE    EXT, 
SCOPE(10)    AIIR    EXT, 
SCOPE$NUM    BYTE    EXT, 
TEMPBYTE    BYTE    EXT, 
PRODUCTION    BYTE    EXT, 
PPV$SBTiEinPY    ADDR    EXT; 

/'!=    COMPILER    TOGGLES    -/    DCL 

LIST$PROD    BYTE    FXT, 
DEBUG^LN    BYTE    FXT, 

/'^  COUNTERS  -/ 
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LAILCOTjNT    /riR    5XT,/-    COUNTS    Nu^EEH    OF    mil?    -/ 

/':=  ^LAC-S  USiP  CUPINC-  CODE  OiNiPATIO^l  -/ 

GA■?^$ST^T    BYTE    EXT,/-    IN    CASE    STATEMENT    -/ 
1a^PITE$STMT    S'fTE    EX",/-    IN    V/RITE    STATE'^ENT    -/ 
REAC^SThT    ^YTE    EXT,/-    IN    F.EAE    STa'^EKENT    -/ 
N^'a^STMT    EYTE    EXT,/-    GETS    NEW    PECORE    -/ 
DIS?GSE$ST^^T    ^YTE    EXT,/-    DISPOSES    OF    PECGPD    -/ 
VAFPARM    BYTE    EXT,    /-   EORf^AL    PAPAK    IS    VAPIAPLE 


TYPE-/ 
*/ 


PEADPApr^S  BYTE  EXT,  /-  READING  ACTUAL  PARAyETER^  -/ 
PRESENT  BYTE  F.l':  ,    /-  IDEN'TIFIE^  IS  IN  SYr'i^OL  TA^LE 

SIGN^ELAC-  BYTE  EXT,  /-  SET  WHE.N  SIGN  PRECEI^S  II  -/ 


/*  GLOBAL  VARIABLES  USED  BY  THE  SCANNER  -/ 

CON'T  BYTE  EXT,/-  IMDICATES  FULL  *  CCU"- —STILL  ^tpe 

ACCUM(IDENTSIZE)  BY'T'E  EXT,/-  EOLDS  CURRENT  '^O'^EN  -/ 

/-  GLOBAL  VARIABLES  USEE  IN  SY^^BOL  TABLE  OPERATIONS  -/ 

BUILTiIN$T^L(10)  BY'I'E  EXT, 

BAST^  ADDR  EXT,/-  BASE  LOCATION  OF  ENTRY  -/ 
SBTBL  ALDR  EXT,/-  CURRENT  TO^  OF  SYMBOL  TipLE  -/ 
«PTPADDr  ALLR  EXT,/-  UTILITY  Va-IABLE  TC  ACCESS 

S'^TBL  -/ 

ADLRPTR  BA^EL  AFTRAEDR  AILR,/-  CURRENT  2  BYTES 

POINTED  AT  -/ 

BYTEPTR  BASED  AFTRADDR  BY^E,/-  CURRENT  ^YTE  POINTED 

AT  -/ 

?PINTNA^;E    ADDR    EXT;/-    S^T    PRIOR    TO    LOCTU]^    OR    ENTER 

-/ 

/-  PARSER  VARIABLES  -/ 
DCL 

PA^N'Nir  (PSTaCKSIZE)  BYTE  EXT,  /-  MAINTAINS  NU^,BER  OE 

parar^eters  associated  v^ite  a  subroutine  -/ 

labvlstacx(pstac:<size)  addr  ^xt,/-  tpac?:s  state^'emt 

LABELS  -/ 

PARf^NU.^LCC(PSTAC'<SIZE)  ADDR  EXT,/=-  MAINTAINS  I'-E 
LOCATION  IN  SYMBOL  TBL  VREKE  PARAMETER  INFO  STORED  -/ 

BASEiLOC(P5TACK3IZE)  ADDR  EXT,  /-  STORES  T^T  3■f^B0L 
TABLE  ADDRESS  OF  THE  PERTINENT  ENTRY  -/ 

?OR,'^.$EIELD(PSTACKSIZE)  BYTE  EXT,/-  STORES  '^^^I    ^GPy; 
FIELD  OE  SCANNED  IDENTIFIERS  "-V 

TYPE$?T-ACK(PST4CKSIZ£)BYTE  EXT,/-  HOLDS  A  VAFIAILE'S 

rp  V  p  T  ','•  / 

EXPRESS$STK(PSTACK5IZE)BYT?  EXT./-  CONTAINS  THE 
TYPES  OF  THE  EXPRESSION  COMPONENTS  -/ 

PRTiADDR(PSTACKSIZE)  ADDR  EXT,  /-  STORES  AN 
IDENTIFIER'S  PPT  LOCATION  -/ 

PARA^NU'^  BITE  EXT, 

(SP,M:P,MPP1)  BYTE  EIT; 
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/'!'  MNE 

^ONICS  FOR  PASCAL-Sr  ^-.ACHINE  - 

/ 

rcL 

NOP 

LIT 

'^'.ENEP 

LIT 

'l',LPL 

LIT 

'£',LEIB 

LIT 

'3', 

IE  1 1 

LIT 

'a' 

,PRO 

LIT 

'c' 

,RTN 

LIT 

f  ~  ' 

t 

,SAVP 

LIT 

'7', 

UMSP 

LIT 

'3' 

,CNV^ 

LIT 

'9' 

,CNVI 

LIT 

'10', 

,ALL 

LIT 

'11', 

LITA 

LIT 

'12', 

,ADL? 

LIT 

'13' 

,ADDI 

LIT 

'14' 

,SUBF 

LIT 

'15', 

SUE  I 

LIT 

'16', 

,hUL? 

LIT 

'17', 

•"^ULI 

LIT 

'16' 

,EIVP 

IIT 

'19', 

DIVI 

LIT 

'20', 

,i^:OLX 

LIT 

'21' 

,ECLI 

LIT 

'22' 

,NECI 

LIT 

'23', 

LECI 

LIT 

'2-i' 

,GECI 

LIT 

'25', 

LSSI 

LIT 

'26', 

GRTI 

LIT 

'27', 

XIM 

LIT 

'2e', 

,EQLP 

LIT 

'29' 

,NECB 

LIT 

'30' 

,LECB 

IIT 

'31'. 

G^O^ 

LIT 

'32', 

,LSST^ 

LIT 

't^' 

»-  '^ 

GRT3 

LI^ 

'34' 

EGLS 

LIT 

'35', 

NEOS 

LI" 

'36', 

LECS 

LIT 

'37' 

.GEOS 

T  T  T^ 

'36' 

LS3  S 

LIT 

'39', 

CRTS 

LIT 

'40', 

,EQSET 

LIT 

'41', 

,NEQ?T 

LIT 

'42', 

JNCIl 

LIT 

'43', 

INCL2 

LIT 

'44:', 

,NEG^ 

LIT 

'^5', 

t 

NEGI 

LIT 

'46', 

cor^? 

LIT 

'47', 

CO^'I 

LIT 

4c 

,NOTX 

IIT 

49  , 

ANDX 

LIT 

'£«', 

,EOR 

LIT 

'51', 

.STCB 

LIT 

STOI 

IIT 

STC 

LIT 

'54', 

STD^ 

LIT 

'55', 

STDI 

Ln 

'z^' 

,STE 

LIT 

'f7'. 

UNION 

LIT 

'5S', 

stbie 

LIT 

'59', 

JSEC 

LIT 

'60', 

CNAI 

LIT 

'61', 

BRL 

LIT 

'62', 

LLC 

LIT 

'63', 

CN2I 

LIT 

'6-.' 

,.^KSET 

IIT 

'65', 

XCEG 

LIT 

'ee' 

,?APM 

LIT 

'67' 

.PA?."^:V 

LIT 

'63', 

PAPM 

IIT 

'69', 

INC 

LIT 

'?2', 

ESC 

LIT 

'71' 

,DEL 

LIT 

'72' 

,V>PT 

IIT 

'73', 

SUB 

LIT 

'74' 

,LLSI 

LIT 

'75', 

,KASS 

LIT 

'76' 

,LOD 

IIT 

'^7', 

LOD^ 

LIT 

'7q', 

,LODI 

LIT 

'79' 

,RDV^^ 

LIT 

'80' 

,REVI 

IIT 

'Bl', 

RDVS 

LIT 

'S2', 

,^RTP 

LIT 

'53' 

'aFTI 

LIT 

'6i', 

VFTS 

IIT 

'65'. 

ruMP 

LIT 

'«6', 

,AES 

LIT 

'P7' 

,SCR 

LI? 

'86' 

,SIN' 

IIT 

'69', 

cos 

LIT 

'90', 

,ARCTN 

LIT 

'91', 

,EXP 

LIT 

'92' 

,LN 

IIT 

'93', 

SORT 

LIT 

'94', 

,ODE 

LIT 

'95' 

,EOLN 

LIT 

'96' 

,E;XE 

IIT 

'97', 

TRUNC 

LIT 

'98' 

rRCUNE 

LIT 

'99', 

OR  I 

LIT' 

'100', 

CFR 

IIT 

'101', 

succ 

LIT^' 

'102' 

,PREE 

LIT' 

103' 

.SEEK 

LI'^' 

'104' 

,PUT 

IIT' 

'105'  , 

GET 

LIT 

'106', 

.RESET 

LIT' 

'137', 

,PEV.^T 

LIT' 

'108' 

,?A.GF 

IIT 

'109', 

iNEW 

LIT 

'110', 

.EISPZ 

LIT' 

'HI' 

,E'A'E 

LIT' 

'112', 

,XTRNL 

IIT 

'113', 

RDV 

LIT 

'114'; 

SCANNE] 

R:PFOC  EXT; 

END  scanner; 

PRIMT$PROr:  PROC  EXT; 

ENE  print$ppoe; 

ERROR:  PROC (ERHCCEE ^  EXT;  LCI  ERRCCEE  AIER; 

ENE  ^rror; 

/-  FXTERNAI  PROCECUPES  EROf^  SYMBOI.SRC  =V 
GENERATE:  PROC ( CBJCOEE )  EXT;  ECI  OEJCGIS  BYTE; 
ENE  G^NERATT^; 

GEN'^AEEP:  ?R0C(A,3)  5XT;  ECI  A  BYT^;  ECI  3  AIET'; 

ENE  gen^aeer; 

SETAEERPTR:    PROC(OFESET)    EXT; 
ECI    OFFSET   byte; 

ene  setaeerptr; 
set$p&st$pn:  ?roc(oefset)  ext; 
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ECL  c^yszT  ^YTZ; 
ENE  setspas-^pn; 

CHK$PRT$NAMI:  ppoC(A^  BYT3  EXT: 

/*  A  IS  O'^'ySET  FKCM  "BASE  TO  PRINTNAY:^  =;-/ 
rCL  N  PASEE  PRINTN'Ar.E  BYTE; 
DCL  (LEN,A)  byte; 

END  cfk^ppt$^jame; 

LOOKUP$PN$IL:  PPOG.(  A  ,  lE^ENTRY  )  BYTE  EXT: 

ECL  (a,ie$t^^jtry}  byte; 
E\'E  lookup^pn^ie; 

LIMITS:  PROC(COUi\T)  EXT; 
DCL  COUNT  byte; 
ENE  LII^ITS; 

EMTER$VAR<IE:  PROG (A , B , IE$SNTRY )  EXT; 
DCL  (A,B,ID$ENTPY)  BYTE; 

END  enter$var^ie; 
ALTER$PRT$L0C:  proc  fxt; 

ECL  (i,p)  byte; 
END  alter$prt^loc; 

EMTERiSUBRT^J:  PROC  (  A  ,  B  ,  IE$EN' TRY  )  EXT; 
DCL  (A  ,B,ID^ENTPY)  BYTE; 
END  ENTEP$STJ3RTN; 

LOCKUP$OMLY:  P?OC(A)  BYTE  EXT; 

DCL  A  byte; 

END  LOOKUP $CNLY; 

CONV^TBCD:    PROC  (a, B)    EXT;/-    A=SP/^'P/>*.PP1  .    B=P03/NEC-    -/ 

DCL    (I,J,DELAG,EFLAG,SFLAG,A ,B .N    BASED    P^ I NTXAMF  i    BYTE; 

END  convrtbcd; 

CONVEPTI:  PROG(A,B)  REDRESS  EXT: 

DCL  (I,A,-B,N  BASED  PRINTNAME)  BYTE; 

DCL  Nur^  ader; 

END  CONVFRTi; 
CONVRTiCONST:  PROC (A)  EXT;/-  A=POS,NFG  -/  DCL  A  BYTE: 

END  convrt$const; 

ENTP$C0NS$NTFY:  PROC  EXT; 
DCL  IXINDFX  BYTF; 
END  ENTR^CONSiNTHY; 

ENTR$STR$TYP:  PROC(A)  EXT; 

DCL  A  byte; 
END  entr$str$typ; 

store$const:  PROC  ext; 
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FNL  sto?.e$comst; 

/-   EITEPNAL    PFOCFDU^E    TECLAEAT IONS    F?ON    SYNl.SPC    -/ 

CRr$HI$LOV/iCHK:    FRCC    EXT; 
END    OPD^HIiLOWiCEK; 

ENTPiSUB$NTRY:  PEOC  EXT; 
END  ENTP$SUBiNTEy; 

ALLC^OEFSET:  PRnc(A)  EXT;/-  TYPE^LOCT  -/ 

rcL  A  ^rrR; 

DCL  (ALLC$EORi^.  ,^)  BYTE; 
END  ALLCiOEESET; 

AL$NDX$OEESET:  PROC  ADTR  EXT; 
DCL  A  ADDR,3  BYTE; 

END  al$ndx$offset; 

ALLOC$VARS :  PROC  EXT; 
END  ALLOC$VARS; 

CASE^PTRPTP:  PROC(A)  EXT; 

rcL  A  pyte; 
END  case$ptpptr; 

SET^VAPiTYPE:  PROC  EXT; 
END  SET$^^ARiTYPE; 

LOADSVART:  PRQC(?T)  EXT; 

DCL  PT  byte;  /'■=  PT  REPRESENTS  A  STACK  POINTE?  -/ 
END  LOAI^VARi; 

ASSICN$VAHI:  ?POC(LS,  STCPE$TYPi^)  EXT; 

DCL  IS  PYTE;  /-  LS  IS  THE  LFET  SIDE  05  ASS^'T  STrT  -/ 
DCL  (A,  B,  STOPESTYPE)  BYTE;  /-  STORE$TYPE  INDICATES 

WHETHER 

TO  DELETE  OR  LEAVE  TBE  CURRENT  VALUE  AT  THE  Top  OE  THE 

STACK  */ 
END  ASSIGN$VARI ; 

CHK$SXPR$TYPE:  PROC  PYTE  EXT; 

END  chk^expp^type; 

COPYiSTACKS:  PROC{A,  B)  EXT; 
DCL  (A,  B)  EYTE; 

END  copy$stacks; 

WRITE$VAP:  PEOC(NUr^P)  EXT; 

DCL  NU^B  byte;  /-  NUr^EER  OE  V-'RITE  PARAf^.S  -/ 

END  wpite$var; 

READ^VAR:  PROC  EXT; 

END  read$var; 
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SCOP^^^FANCH:  PPOG  FXT; 
EMC  SCOFE^PPAN'CH; 

LABT^L$r^AKER:  PROC  iXT; 
ml)   LABEL $i^ak^r; 

USEP^TYP:  PFOC(A)  ZXT; 

rcL  A  byte; 

END  USEP$7Y?; 
SETSAVE^PLOCK:  PPOC  EXT,* 

END  setsave^block; 

HEAD$MiBLK:  PROC  EX'^; 

END  head^n$blk; 

EWr$SUBRTN:    PROC    EXT; 

END  ewd$subptn; 

GOT^PARA^S:    PROC    EXT; 
END    GOT  $ PAR A MS ; 

SET$OP$TYPE:  PROC(A)  EXT; 

ECL  A  ^yte; 

END  SET$OPiTYPE; 

CALL$A^PROC:  ?RCC(A)  EXT; 

DCL   A    byte;    /-    TRUE    OR    ^alSE    -/ 
END    CALL^AiPROC; 

aOT$?rNC$TYPE:  PROC  EXT; 

END  got^eu\'C$type; 

E^'D^PROGHAM:  PROC  EXT; 

EMD  emd^ppogram; 

ARAYiDECLAPE:  PROC  EXT; 

END  aray^declare; 

FI'^D$RELOP:  PROC  EXT; 
END  FIND^RELOP; 

$EJECT  SYNTHESIZE:  PROC  PUBLIC; 

IF  LISTPROD  THEN 

CALL  print^prod; 
DO  CASE  production; 

/---  PRODUCTIONS  ---/ 

/-    CASS  0  NOT  USED     -/   ; 

/*    1    <PFOGRA^.>  ::=  <PPOC-RA^^  HEADING>  <BLOCK>  .  ^  -/ 
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/- 

/::; 

/- 
/- 


CML   5NI)$PE0GRAr^; 

2  '^   <PR0CEDUR3'    HEADIVG>    <"eLGCK^    . 
CALL    EME^PROGRAM; 

3  '^    <^UNCTION    HE'^DI;JG>    <3L0CK>    . 
CALL   ENBSPROGRAr; 

4  ^PROGRAK    HEAEP[G>    :  :=   PROGRAM    <PROG    irEN'T>    ( 
4  <X?ILE    IDEiNT>    )    ,' 

do; 

SCOFE^NUM    =    0; 
SC0PE(SC0PE5NTjy. )    =   53TBL; 
SCOPF^NUM    =    i; 

end; 
5   <xeile  ident>  ::=  <file  ident> 


<XFILE  IDE.MT^ 
<PROG  IDENT>  ::=  <IDSNTIFIER> 


<'FiiE  ide\t:> 


8  <FILE    IDENT>::=    <IDENTIFIER> 
CALL    ENTFR^VAR^ID(16,SP,FILE^^NTRY)  ; 

9  ^■BL0CX>    ;:=    <L^P><CDP><TLP><V^P><P6.VD?><SThT?^ 

Id        <LDP>    :  :  = 

CALL  scope$eranch; 

11  '^   LABEL    <LA3SL    STRING>    ; 

CALL  scopf^branch; 

12  <LAPEL    STRING>    ::=    <LABEL> 
C^LL    LABFLii^AKEP; 

13  '^    <LABEL    STPI\'G>    ,    <L.*?EL> 

CALL  larel$maker; 

14  <LA.BEL>  ::=  <NU^'BER> 

IF  TYPENUr^  <>  INTEGER$TYPE  THEN 
CALL  ERROR (  'LS')  ; 

15  <CDP>  :  :  = 


16 
17 
13 


CONST  <CONST  DFF>  ; 
<CONST  DEF>  ::=  <IDENT  CONST  DEF> 

<CONST  DE^>  ;  SILENT  CONST  ££?> 


'•V 


/- 


19  ^IDFN'T  CONST  DEF>  :  :=  <IDENT  CONST>  =  <CONSTANT^ 

CALL  entr$cons$ntry; 

20  <IDFNT  CONST>  ::=  <IDENTIFIER> 

ro; 

IF  LOOKUP $ONLY(SP)  TEEN 

CALL    FRROR(  'DC'); 
CALL    E^ITERiVAR$ID(0,SP,CONS$ENTRY)  ; 

^nd; 

21  <CONSTANT>    ::=    <NUr<BER> 

do; 
c\ll  convrt^const(pcs ); 

EXPRESS^STK(^'P)=C^NSiNU^l$TY?E; 
VECPTR=VECPTR+i; 


'•V 
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/-    22  <si';n>  <nu^'ie?.>  =;v 

do; 

if  ?igntype=nec-  tfen 

call  c0nvp.'t'$c0n5t(ni0); 
else  call  con'vrt^cokst  (  pos  )  ; 

EXPRESS  is  TK(V'P)=COWS$NUr^$TYPE: 

VECPTR=Y5CPTP+i; 

SIGN$FLAG  =  Ei^LSE; 

end; 
/-  23  '^  <ccnstam':  ibent>  -/ 

ro; 

EX^RESS$STK(rP)=CONS$IEENTiTYPE; 

VECPTP=VECPTP+i; 

CALL  store$const; 
ene; 

/-      24  '^   <SIGN>    <C0NS7ANT    ILiiMT^  -/ 

co; 

IF   SIGNTYPE=NEC-    THEN 

EXPFESS$STK(t^.P)=CONS$SIDENT$TYPE; 

ELSE  express$st^(mp)=cons$ident$type; 

V2C?TR=VECPTP+i; 

CALL  store$ccmst; 

SIC-N'$FLAG  =  false; 

ene; 

/-   25  '^  <STRI^JG^  -/ 

Eo; 

EXPRESSiSTK{N'P)=C0iNS$3TR$TY?E: 

VFCPT?=VT^CPTR^i; 

CALL  store$con:3t; 
ene; 
/-    26      <constant  ieent>  ::=  <iee^tifier>  -/ 

/--   2'^    ^SIGN'N  :  :=  +  i     -/ 

ro; 

SIGNSTYPE  =  POS; 
SIGN$FLAG  =  true; 

end; 

/-   26  ^  -  -/ 

Eo; 

SIGNSTYP^  =  NEG; 
SIGN$FLAG  =  true; 

ene; 

/-   2  9   <TEP>  ::=  -/ 

case$stmt=falsf; 

/-   30  '^  TYPE  <TY?E  EE?  STRINO  ;  -/ 

case$st^!T=falsf; 
/-  31   <type  def  stri\g>  : :=  <type  le^  -/ 

/''.=   32  '^  <TYPE  lEF  STRING>  ;  ^TYPE  lE^  -/ 

/*      33        <rTYPE    IE>    ::  =   <TY?E    IES>    =   <TYPS.>  -/ 

EO; 

APTRAEDR=TYPE$AEE? ; 
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addrpt^=type$loct; 
ene; 

/-   34    <TY?E  IES>  ::=  <IDENTIFIEH>  'iv' 

DO  * 

if  lookup^only(s?)  then 

call  ^phor(  'dt'); 
papent$type=s?tbl; 

CALL  E^lTEH$VAP$I^(?cH,SP,TYPE$E.^lTRY); 

if  not  prese^jt  then 
do; 
call  limits(2); 
type$addr=s3t^l; 
s5t?l=sptbl+?; 
enl; 
end; 
/-  35   <type>  ::=  <simple  type>  -/ 

<STRUCTUREr  TYPE>  -/ 

<POINTEP  TYPE>  'iV 

<SIMPLE  TYPE>  ::=  <TYPF  II)ENT>  -/ 

(  <TirENT  STRING >  )             -/ 


/'■^ 

36 

/* 

• 

> 
37 

• 

/- 

3S 

• 

/- 

39 

> 


/-      40  <C0NSTANT>    ..    <C0N3TAr^T>  -/ 

CALL    ENTR$SU3$NTRY; 
/-      41         <TTPE    IEENT>    ::=   <IDENTIFlER>  -/ 

IF    LOOKUP$PN$ID(SP,TYPE^ENTRY)    TEEN 
TYPEiLOCT=LOOt:UP$ADDR  ; 

ELSE  cn; 
call  error(  'ti '); 

typeiloct=.puilt$in$tpl;  /-  integer  lefault  'v 
ene; 
/-  42   <tident  string>  ::=  <identifier^  -/ 

Eo; 
TY?E$CRr$NUi^=e; 
call  usfr^typ(type$ord$nur^); 
ene; 
/'-'    43  '^  <tiesnt  stpino  ,  <ieemti^iep>  -/ 

do; 

TYPFiORD$NUiY=TYPFiOPDiNUM^l ; 

call  user$typ{ty?e$ore$nu'^); 
fnd; 
/-'    44   <structurze  type>  :  :=  <unpackee  structupee  ty?e>  -/ 

PACfCEE  -/ 

<UNPACKED  STRUCTtPEE  TYPP^  -/ 

<UNPACKEE  STRUCTUREE  TYPS>  :  :=  <ARRAY  TYPE.>       -/ 

<RFCORr  TYPE>      '•=/ 

<SET  TY?E>         -/ 
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/- 
/- 

45 
45 

/- 

• 

46 

/- 

• 

> 
47 

/- 

• 

46 

/-   49      ■  '^  <riLZ  TY?E>        */ 

/-   5^    <AE?AY  TYPI>  :  :=  ARRAY  [  <INLFX  TY?^  STR^NG^  1  C?-/ 
/-   50  <COMPONENT  TYPE>  =:--/ 

CALL  aray^declafe; 

/*      51         <INCEX    TYPE    ST^INO    :  :=    <INCEX    TYPZ>  */ 

ro; 

IE   APRT$?TR=APRY$NEST-1    THEN 

do; 

call  error(  'an ') ; 

ary$d[^^adr$ptr  =  ary$d[^$aef  $?tr  - 

NUf^<ARRYiDir^(ARPYY5?TR}  ; 

end; 

else  \pry$ptr=  arry$ftr+i ; 
arry$di^'$?tr  =  2; 

ARY$rM$ArR$PTR=ARY$L^$ADR$PTR+l; 
APRYSQTY( ARRY$PTP)  =  AL$NDX$0FFSET; 

arry$dl'^en;(apy$dm^ad^$?tr)  =  type^loct; 

tempease=ease; 

BASE  =  typeloct; 

CALL    SETAEDRPTR(7) ; 

ARRY^EI^iLOV'VALCARYiC^'^ArR^PTR)    =   ALLRPTR; 
C4LL    SETADDRPTR(9) ; 

ARRYiDI!^iRIVAL(ARYiDM^ADR^PTP  )    =   ADERPTP; 
CALL    SETAEDRPTRdl); 

nu!^$arryielr^ts(  ary^d;^$adpsptr)  =  aderptr; 
ease=te^'PBase; 

NU^•$ARR^iEI^'(ARRY$PTR^  =  l; 

^nd; 

/-      52  '^    <IMEEX    TYPE    STt?INC-^    ,  -/ 

/-      52  <riNEEX    TY?L>  -/ 

do; 

ie  apryieim$ptp=^1ax$arry$ci^;-l  them 

call  error( 'ae'); 
else  ^?ry5di[^$ptp=arpy$dim$ptr  +  1  ; 

ARYiEMiAER$PTR=ARYiB^^liAD^SPTR+l; 

arry$oty(j&rry$ptr)  =  arry^oty(  arry^ptr )  - 

al^ndx^ofeset; 

ARRY$DirEN(APY^DMiAE?i?TR)=TYPE^LOCT; 

temppase=rase; 

ba5e=type$loct; 

call  setaedrptr(7); 

arry$ei^$lcwval(aryirm$aer^ptr}=aeerptr; 

call  setaddrptp(3) ; 

apryidi^$hival(ary$e^'sadr^ptr)=ardrptr; 

CALL    SETAEERPTR(ll); 

NTJM$ARRY$ELMTS(  ARY$E,^$AER$PiR)  =  4.E.Eft?2R; 

base=temppase; 

n  u^^  ^  arry  i  e i  ^^  f  af  ry^  ptr  )  =n  u^•$  arry  $  1 1  ^  ( ap  ?  y  $  ptr  ^  -1  ; 
^nd; 
/-  53   <index  type>  ::=  <simple  type>  -/ 

f 

/-      54        <CO^'PONiLNT    TYPE>    ::=    <TYPE>  -/ 
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/- 
/- 

/::. 

/- 
/- 
/- 


55 

ro; 

VARIAMT$P 
BASE, TYPE 
IF  VARiCA 
CALL  ER 
CALL  SETA 
AELPPTR=E 
CALL  SETA 
ALD??TP  = 
REC^NST=R 

end; 


<RECO^D    TY?E>    ::=   <P^COor>    <EIELD   LIST> 


art(?tc$nst)=ealse; 
iloct=rec$pap$adp (rec^nst); 

S^yAL(RSC$NST)  <>  e  THEN 

ROR(  'IV'); 

DrR?TR(5); 

Xr$OF?T$ESE(RSC$NST>; 

DDR?TP{7); 

prv$s"ft$entry; 

EC$NST-i; 


56    <RECORD>  : 

ro; 

RFC$NST=REC$N 
APTRAEDR,R£Ci 
ArrR?TR=0000H 
APT?ADr)P  =  AFTR 
ADDRPTR=PRViS 
PRViSPTiENTRY 

aptraddr=aptr 
?yteptr=ieh; 
setel=spt'el+9 
/-  kjitialize 
variant$?art( 

FXEiOFST$ESE( 
VARsOFSTiBSEv 

cu-^ofst{rec^ 
var$cas$val(r 
rec0fd3ptr=-1 
ene; 


=  BECCRE 

T+i; 

AR$AEP(REC$\'ST  )  =  S^TtL; 

/-CCLLISIOM  ENTRY-/ 
EDR+2; 

t^emtry; 
sbtbl; 

r.  Tj  D  ^  p  ♦ 

/-  FOR^*,  FOR  RECORD  -/ 

/-  ALLOW  FOR  REST  OF  ENTRY  -/ 
PECORE  -/ 

ec  $  n's  t  )  ,  tag i fe  ( rec  $  v s t  )  =e  a  lse  ; 
zc$nst)=0000h; 

ECi\'3T)=000?H; 

st)=000Zf; 

C$NST)=00005; 


57 

56 


60 
61 
62 

Eo; 


<FIELE  LIST>  ::=^  ^FIXEE  PART> 

'^  <FIXED  ?APT>  ;  <^'ARIANT  ?APT> 

"  < VARIANT  PART> 

<'FIXED  PART>  ;:=  <REC0RE  SECTION^ 

'^  <FIXEE  PART^  ;  <RECCRE  SECTICN> 


<RECORE  SECTION> 


<FIELr  ILE:jT  string^  :  <rTY?E>^ 


CALL  ALLC$0FFSET(TYP^$L0CT) 


/=' 


AND 


ALLC 


$0' 


■■    AL0C3ASICTYP 

:o  PTRPTR  =  0  TO  RECORDSP 

BASE  =  REC$AEER(PTRPTR) 

CALL  SET^PAST$PN(3} ; 

BYTEPTR  =  ALOCBASICTYP; 

APTRAEER=APTRAEER+i; 

A EE R  PT P  =T Y P E  i  LO C T  ; 

APT^AEEP=AFTRAErR-2 I 

AEERPTR=CUR$OFST(RSC$NS 


'Y  ARE  SET  -/ 
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r)^CUH^C5ST(RECsrJST) 


/- 

e3 

} 

/- 

64 

» 

/- 

65 

/- 

65 

• 

/- 

66 

REcnT5_ri^TR=e; 

I?    ^XrsOFST$^SE{^rC$MST)    <    CUR$O^ST(fiPC^NST) 
T^'EN'    IXriOyST^?S?(REC^NST)=CURin^ST^REC^NS")  ; 

ent: 


<EIELD    IDEN'T    STHING>    ::=    <FIELD    irENT> 


<FIELE    ItENT    STRIN:>> 
<EIELD    irENT> 


<EIELD    IDENT>    ::=    <IDENTI^IER> 


'•V 
'•V 


Eo; 


I^  RECO?D$PTF  <>  10  THEN  REC0RD$FTR=PECCRD5pTR+l : 
ELSE  CALL  ERFOF('RN'); 
REC$AErR(R£CCRri?TR)^SETEL; 
C»LL  FNTFR$yAP<ID(53H,SP,TTPF$rCLE); 
IE  NOT  PRESENT  THEN  DO ; 
CALL  LI^^ITSfV); 

aptraddr=sbt?l; 

aedpptr  =  rec^par$alr  (reci^^st)  ; 

SETEL=SPTEL+?; 

end; 

ie  va?iant$?ap'^(?ecinst)  the^i 
do; 
3ase=rec^addr(reccrd$ptr); 

CALL    Lir^ITS(2); 
CALL    SETADLRPTR(4); 
BYTEPTR=?DEr ; 

end; 

end: 
/-      67      <VARIANT    PART>    ::=   CASE<TAC    EIELDXTYPE    IIEM">    OF    -/ 
/-      67  <VARIANT    STRINCO  -/ 

/-      63 
/-      6S 

/-      6  9 

Z'!^      7e 


CAS  2    ^TY^E    IDENT>    OF 
<VARIANT    STRING> 


<VARIANT    STRINO    ::=    <VARIANT>  '  -/ 

'^    <VARIANT    STPING>    ;    <yA^IANT>-/ 


/':'      71         <TAG    FIELD>    :;=    <FIELD    IEENT>    : 

TAG <Fr  ( PEC$  N  ST )  =TRTJS  ; 
/-      72      <VAPIAiNT>    ::=<CASE    LA3EL    LIST>    :     (<FIELL    LIST.>    )       -/ 

/-      73  "  ^V 


/'^^   74    <CASE  LABEL  LIST>  ::=  <CASE  LA3EL> 

do; 
labflstack(sp)  =  lablcount; 
lablcount  =  lablcount  +  2] 


-/ 


lei 


GEN^BATZ(E 


GFM^ADr:P{K 
GEMERATEfl 
GENEPATE(E 


CALL 
CALL 
CALL 
ENC; 
/-   75 

do; 

CALL 
CALL 
CALL 

end; 
/'!*    76      <'case  la£el> 

I^^  CASE$ST^'T  TEEN 

Lo; 

CASE$STK(CASE^C 
DO  CASE  EXPRESS 
/-  NUMBER  -/ 

allcscty  =  c 
/-  identifier 
do; 
ie  mot  loc 
ELSE  do; 

BASE  =  L 
CALL  SET 

allc$(;ty 

end; 
end; 

/-  SIGMED 

do; 

end; 

/-  STRING 


ase,allc$cty)  ; 

OVfLABELSTACK (SP) ) ^; 
IGH(LA'^ELSTACK(S?)  )  ); 

<CASE  L^EEL  LIST>  ,  ^CASE  LAPEL>-/ 

ASE,ALLC$CTY)  ; 

0V( LABELS  TACK (MP))  ■; 

IGH(LA3ELSTACK(MP)  )  ); 

: :=  <CONSTANT>  -/ 


OUNT)  -  CASE$STK(CASE^COIJNT^  +  i; 

$sT?:(s?)  ; 
OMVERTi (SP.pns); 

:<$UP$ONLY(SP)  THEN  CALL  E^R^R('rT'): 

noKUP^ADDP; 
$PAST$PN(7); 

=  addrptr; 


IDENTIFIER  -/ 


TYP 


end;        / 
end; 

ELSE 

do; 

if  not  variant$p 
do; 

VARIA^'TiPART(R 
VA.RSC4S$TP(REC 
VAP^CASiVAL(RE 

call  allc$oiis 
ie  t/vg$ed(rec$ 
do; 

TAG$ED(RECi 
BASE=REC$AD 
CALL  SETADI 
EYTE?TR=9EB 
CALL  SETADD 
CALL    SETADD 

ArDR?TR=y;,R 

APTR4DDP=AP 
ADD^?TR=VA^ 
A?TR'DIR=A? 
ADDRPTR=CUP 


E  ^V 

-OE  CASE-/ 

ART(REC$NST)  TEEN 
ECiNST)=TRUE; 

$i'Jst)=type$loct; 
c^\'st)=al^ndx^oeeset; 
et(type$loct) ; 

N3T)  TFEN 

NST)=rALSE; 

DR(REC0RD$PTR); 

RPTR(4:); 

RP'^R(5); 

RPTR(£+BYTEPTR); 

$CAS$VAL(RECtNST); 

TRADDR+?; 

$CAS$TP(RECiNST) ; 

TRADDR+2; 

$07ST(REC$NST); 


182 


/- 
/- 


CT'P.$c^ST(E5'CSN3T)=CUR$0?ST(ETC$NST)+A.LLC$CTY; 

f\'e; 
vap$cfst$es£(pecinst)=cu?iofst(?lc<.\st)  ; 

"FXr  SO^S*^  $  3S  E  (  ^ EC iN  ST  )  =CUR  ^  OFS  T  (  Ry  c  $  M  ST  } ; 

end; 
/-  call  co^^^arliconst$variant;  ':v 
/-    chfcks  tee  casf  la3le  v'ltf  the  variant  type  -/ 
cijp^0fst(rec$nst)=variof3t^psf(pecinst); 

VEC^TP=VECPTR-l: 

const$ptr,co;jst^indx,const$pn^ptr=(?; 

emd; 


76  <?ET  TYFE>  : 
CALL  FNTR$STR$TYF 
76    <EASE  TYPE"> 


=  SET  OF  <PASE  TY??^ 

?7H); 

:=  <SI^^PLS  TYPF> 


:=  FILE  OF  <^YPE> 

<TYPE  IIENT> 


79    <FILS  TYPE> 

CALL  ENJTP^STP$TYP(2FH)  ; 

P0    ^POINTER  TYFE>  : := 

CALL    FNTR$STR$TYP(o7E) ; 

£1    <VBP>  : := 

SCOPECSCOPE^NU^.^  =  SFTIL; 

82  '^   VAP    <VAR    DEC  LAP    ST^Iiia>    ; 

scoPE(scn?E$NUK)  =  sptel; 

P7         <VAR  LECLAR  STRINC->  ::=  <yAP  rECLAR> 


£4: 

P4. 


<VAP    D^CLAR    STPIfjG^    ; 
<VAP    rFCLAR"> 


/'•= 
/- 
/- 


£5    <VAP  DECLAE>  ::=  <ILENT  VAR  STPi;ja>  :  <'^YPE^ 

Eo; 

CALL    iiLLCC^VARS; 

end; 

£6    ^IIENT  VAR  STPINO  ::=  <lrENTI^I£P> 

do;  i 

YAR^PT^  =  0; 

PARENT$TYPE,VARiPASE(VARPTP)    =    SFTPL; 
CALL    ENTEP$VAP^ID(0  ,SP  ,VAR$E^ITPY)  ; 

end; 

6^  '^  <  I  DENT  VAR  3TPINa>  , 

87  <ILENTIFIER> 

IF  VARPTR  <>  1^  THEN 

ro; 

VAPiPTP  =  VAR$PTR  +  i; 
VAR^EASE(VAR$PTR)  =  SBTBL; 

ca.ll  enter$var$id(?,sp,var$entrr)  ; 
emd; 
else  call  error (  'vn') ; 

CALL  setsav^^blcck; 

£9  '^    <FOPF    DECLAR> 

CALL    SETSAVE^ELrCK; 

90         <PORF   DFCLAP>    ::=    <PPOC    CP    "^"'UNCT>    ; 


'•V 
'-V 


-/ 


/-      91 


<PORF    DECLARE    <PRnC    n^    FUN'CT> 


-•V 

;-/ 


133 


/- 
/- 
/- 
/- 
/- 


92         <?ROC    OR    yUNCT>    ::=    <'PROCErURE    ?2AEIMC>    <EIOCK> 

CALL    FE«EiN$PLr:; 

P.3  '^    <?ROCEriJRE    HEAriN'G>    <riFECTIVE> 


94 


CALL  HEA.E$M$3LK; 


<FU"JCTICM  HEADING>  <BLCCK> 
<FUNCTirN  HEALING  >  <'LIRECTIVE> 


/- 

/'-' 
/* 

/- 


/- 

/- 
/- 

/- 

/- 


P6         <riPECTIVE>    ::=    <I DENTITIER> 

IE    NOT    LOOKUF$CNIY(SF)    TEEN    CALL    ERROR('IT'); 

ELSE    do; 

PASS  =  lookup$/ldr; 

CALL  SET\DLEPTE(f^); 

if  pytept^^  =  21  then  call  fv/f^supptn ; 
end; 

97      <ppoceeure  heading>  : :=  <proc   ie>  ; 
call  got^params; 

98  '^  <'PROC  IL>  ( 

9B  <FOFKAL  papj.  SECT  LISr>  )  ; 

CALL  GOT^PARA[SS; 

P9    <?ROC  IL>  ::=  PPOCErURE  ^irENTIFlER> 

Dc; 

PA^AMNU!^  =  3; 

C^LL    ENTSR$SUFRTNfe,SP,?RCC^EiMTPY)  ; 

\2jI        <F0PMAL    PAPA    SECT    LIST>    :  :=    CECFi'i/L    PARi    SE:T^ 
CALL    ALLCCiVARS; 

101  '^  <^ORi^:AL  PARA  SECT  l:st>  ; 

121  <FOR^AL  PAPA  SECT> 

CALL  ALLCC$VARS; 
102    <?ORMAL  PAPA  SECT>  ::=  <PARA  G^.CIP> 


-•V 


''V' 


-/ 
'•'/ 

-/ 


VAR  <PAPA  GROUP'> 


/'•= 


/♦ 


103 

Lo; 

TE^:PPYTE  =  VAPiPTP; 

EC    VA^iPAPK$?TR    =    0    TO    TEi^P^YTE; 

BASE  =  VARB4SE  ( VAR$P\RM5PTR  ) ; 

CALL  SETAEEPPTpU)  J 

P^TEPTR  =  BYTEPTR  Qi'?.    90H; 

end; 
end; 

104  '^  function  <papa  gpoup^ 
do; 

TEl^PPYTE   =    VAF^PTR; 

DO  var$parm$ptr  =  0  to  tempiyte; 
BASE  =  varbase  ( vap$parm$ptr  ) ; 

CALL  SETADEPPTP(4)  ; 

SYTEPTR  =  JUNC$ENTRY  OR  80?:; 

end; 
end; 

105  "   procedure  <proc  lefnt  list^ 


'•V 


-/ 


/-  105    <PPGC  lEENT  LIST>  ::=  <IEE.^  TIFIER> 


-/ 


184 


do;     , 

yap^base(0)=s?tpl; 
cml  entsr$suihtm(0,s^  ,proc  ^em  try  ^ ; 
fnd; 

/*    107  '^    <?^0C    IDPNT    LIST>    ,    <irPNT  T  ?IZP>-/ 

if  var^ptr  <>  ig  then 
do; 

var^ptp=var$ptp+i; 

PARAMNU>^'=  PAPAf^NU^'.  +  1? 

VAP$BASF(VAR^PTE)=S3T3L; 

CALL  FN TEP  iSUBRT \'  O  , S P  , PRO C  $  FN' TR Y  )  ; 
EN P  * 

FLSF  CALL  FRPOR('VN'); 
/-  105    <PAPA  r;ROUP>  ::=  <PARA  IDENT  LIST^  :  <TYPF  IDEMT>-/ 

/-  109    <PAPA  irSi\'T  LIST>  ::=  <irENTIFIER>  -/ 

ro; 

VAR^^TP=0: 

pspAMNU^:  =  PAPA^'Nu^'.  +  i; 
var^ease(0)=s3tpl; 
call  enter$variie(0,sp  ,var<emtry) ; 
fnd; 
/^=  113  '^  <.?ara  ilt^nt  list>  ,  <ilfnt  ifiee^--/ 

IF  VARiPTR  <>    10  THEM 

do; 

VAR$PTP=VAR$pTF+i; 

PARAN'NU^'    =    PA^AMNUM    ^    i; 

VAP$3ASF{VAR$PTR)=S3T3L; 

CALL  EN TFP ^VAP$I D ( 0, 3 ?,VA REENTRY)  ; 
E  "J  L  * 

ELSE  CALL  ^RR0R( 'VN') ; 
/-  111   <FUNCTI0N  HEADINO  :  :=<FUNCT  ID^  KRESFLT  TY-'Z'>  ;  -/ 

Eo; 

CALL  a0T$P4RAMS: 

CALL  G0T5FUNC$iYPE; 

emd; 

112 
112 
112 

do; 

CALL    CxOT^PARAMS; 

CALL  c-ot$flnc$type: 

CALL    ALTFR$PRT$L0C; 
FND* 
/-    113         <FUNCT    ID>    ::=   FUNCTION    ^irENTIFIE?.> 

do; 

PARAr^NUM    =    d'j 

CALL    EMTER$SUPRT^!(0^SF,FU^!C  GENTRY); 

^nd; 
/-  114      <pfsult  ty?f>  ::=  <type  idemt> 

call  allc$0fiset(typel0ct) ; 
/-  115      <st>^tp>  ::=  <cgkpcund  st^'t> 


'^  <elnct  ir>  ( 

<FORrAL  PA^A  SECT  LIST>  ) 
<RSSULT  TYPE'^  ; 


''V 
'•V 


-/ 


-/ 
-/ 


165 


/- 

/=:: 

/- 
/* 
/- 
/- 

/- 
/- 

/- 


/- 


/'•= 


lie         <STrT>    ::=   <3=/^L    STMT> 

117  '^    <UNrAL    ST^?> 

118  '^   <L*EZL    EEy>    <STrT> 

119  <^ft.L    5T^^T>    ::=<I^    CLA.US^><T?U?    P.ART>    "2:LS?<3al    S' 
CAIL    CEM<ALrHfL3L,(LAEELSTACli:{r^?Ul)  )  ; 

12(^  '^    <SIt^PL'?    ST^'T> 

121  <'UN3AL    ST^:T>    ::=    <I7    CLftnS5>    <STN:T> 
CALL    GT^i<ADD?.(  LBI ,  LA3ELST\CX(  ^^?  )  )  ; 

12?  '^   <IF    CLAUSE^   <T'T?UE    rA?T^    tLSI 

122  <U.NEAL    STMT> 
CALL    G7W^\DrP(L^L.(LABILSTAC''^(^P  )^1  )  ^  ; 

123  <IT    CLAU3E>    ::-    IT    <EXPP^SSION^    T^^El^ 

in; 

LA3ELSTa.CK(M?)=LABLC0UNT; 
LAPLC0UNT=LAPICnuNT+2; 

ie  exppess$stk(n^p^1)  =  30cl?an$ty^e  then 
do; 

call  c-en'era'^e(notx); 

call  gen^alr^(plc,l-abelst«lck(^'p'  ); 

^NC; 

ELSE    CALL    ERP.O?  (  'CE')  ; 

ene; 

124  <T^UE  PART>  ::=  <3aL  STVT> 

Eo; 

C  A  LL  gen  $  AIER  ^  ERL  ,  (  LAEEL5T  AC  :<  (  S  P-1  )  +1  )  )  ; 
CALL  G^:J$AEDR(L3L,LA3ELSTACK(S?-1  ~ ) ; 

end; 

125  <LAEEL    EEr>    ::=    <L''-3EL>    : 

I^    LC0:<^?^PN^ID(^P,LA3L$ENTR^)    T7EM 

Eo; 

CALL    SETAEIRFTPfcl ; 

call  setaderftp(6+3yteptr) ; 

call  ge\'iaebr(l3l,aee??tp  ); 
ene; 

else  call  error{ 'ul'); 
126      <simple  stht>  ::=  <ass  ign^.e^t  stkt> 


127 


128 


129 


130 


/-  131 
/-  132 


<PROCEEURS  S^^lT> 
<V.HILE  STi^,T> 
<REPEAT  STt^.T^ 
<EOR  ST^-^T> 
<CASE  STMT> 
<WIT?-  STMT> 


-/ 


•■V 


186 


r- 


/'- 


134: 


T  c 


<CO70  S?i^T"> 
<COy POUND  ST^'T> 


136  ^ASSIiTN^ENT  ST^T>  ::=  <VA^IAPLT> 
CALL  ASSIGM^VARI(MP,FAI?E); 

137  <VAPIABLE>  ::=  <VAPIABL?  IL^NT^ 


=  <EX?FESSION>  -/ 


133 
139 

ro; 


<VARIAEL^> 

<VAPIABLE>  [  <EXPRES  IIST^  ] 


'•V 


TYPE^STACK  (i^P)  =  (TYPE  $5TACK  (!^.P )  C?  4<?:-i); 

te^'^?ase,ease  =  ea3s$  log  ( !^p  ) ; 
call  set$p&st$pn(9); 
ease=aecr?tr; 

CALL  SETArLR?T'R(5); 

IF  BYTEPTP  <>  EXP^CTP  THEM 

CALL    ERROR    {'-LZ')', 
CALL    SETArrR?TR(15); 

^x?^ctri=ex?$ctr; 

DO    U'HILE    EX?$CTR1    >^; 

CALL    GEN$AIIPfLriI ,    ALIRPTR); 

A^TPADDP    =    APT^ADLR    +  4: 

EXPiCTRl    =   TTvpiCTRl    -    i; 
ENL: 

CALL    SETADDRPTRdl)  ; 
CALL    aEN^ALDR(LDII ,    ALLRPTR  )  ; 
BASE    =    T"^"^  PEASE* 

CALL  s^t$past$^:U7); 

call  ge^allrllita ,  aldrptr); 

call  gemerate(sub); 

call  g7nerate(expictr) ; 

setallrptr(9) ; 

=  adlrptr; 


"  <vapiable> 

lookup$cniy(sp)  then  cal] 


<?IELC  IEENT> 
ER^ORv  TT')  t 


CALL 
BAS^ 

end; 

143 
IE  N^T 

ELSE  do; 
BASE  =  lookup^addr; 

CALL  SET$PAST$PN(12) ; 

PFT$ADDR(^'P)  =  ADDRPTR  +  PRTi  ALLR  (K.P  )  ; 

CALL  SET$PAST$PN!(9)  ; 

CALL  CASEPTRPTR(BYTEPTR) ; 

T^YPE$5TACK(^;P)  ,  TYPE$STAC'-^  (  S?  )  =  PTRPTR; 

end; 

141    ^VARIABLE  IIENT>  ::=  <lrE\TIEIER> 

do; 
vARPAR^i  =  ialsf; 

IE  NOT  LOOKUP^CNLYfSP)  THEN 

CALL  ERR  OR (  'DT'); 
^LSE  CALL  SET^YAR$TYPE;/-  L00XUP$ADDR  SET  ^-ER 


-/ 


187 


ENi; 

/-  14?    <FXPBFS  LIFT>  ::=  <FXPRiSSICN>  */ 

FXP$CTH=1 ; 

/-  14,'^  '^  <rZXPRF3  LI3TN  ,  <ZX?PS5S  ION>    -/ 

^XP$CTE  =  FXP^CTP  ^  1 ; 
/-  144    <FX?HESSION>  ::=  <3I^^PLF  IXPt=ESSION>  */ 

/^''=  145  '^  <SIMPLE  FXPRF?SION>  */ 

/*  145  <PFLATIOnAL  C?ERATCP>  */ 

/-  145  <3I'^iPLE  EXPPESSION>  */ 

l'^   CHK$EXPR$TY?E  THEN  CML  ^rJI^RELOP; 

ELSE  CALL  FHPORl  'CE')  ; 
/-  146    <PELATIONAL  OPERATOR>  ::=  =  */ 

CALL  SE^$0P^TYPF(3BH)  ; 
/'■'    147  '^  <  >  «/ 

CALL  SET$0P$TYFE(e9K)  ; 
/-  148  '^  <  =  V 

CALL  SETiOPiTYPF(:3AH)  ; 
/-  149  '^  >  =  */ 

CALL  SFT$OF$TYPF(03H)  ; 
/-  153  '^  <  */ 

CALL  SET$OPiTYPEf 3CH)  ; 
/-  151  ^  >  */ 

CALL    SET^OP^TYFEOLH)  I 
/-    152  '^    IN  */ 

CALL   SFT$OPiTYPF(0EH)  ; 
/-    153         <TERM>    ::=   <FACTOR>  */ 


/-    154  '^    <TER^^>    <rvuLT  IPLY  INC    OPERATCR>    <FACTOR>-'V 

do; 

IF  R£ArP*RM3  THEN 

do: 
aptradlr  =  parmnitlcc ( kp ) ; 

IF  SHR(EYTEPTR,7)  THEN 
CALL  EPROH( 'NE'); 

end; 

if  chk^sxpr$typs  teen 
do: 

DO  CASE  TYPE$STACK(MPP1)  ; 
/-0-/  IF  EXPRSSS$?TK(SP)  ^  IE  THEN  CALL  GENERATE  ( ^,ULI }  : 

ELS^  IF  EXPRESS$STK:(SP)  =  3E  THEN  CALL  G^^iEF  ATFfKULl )  ; 
ELSE  IF  SXPRESS$ST^(SP)  =  2F  THEN  CALL  GENFPA TE ( ISFC  )  ; 
ELSE  CALL  ERROR(  'CE'); 
/^'l^i^/    IV    EXPPFSS$STK(SP)  =  IE  TE^N 

ro; 

CALL    GENERATE(CNyn  ;/-    COK^EPT    1ST    INT^^.EP    -'•  / 
CALL    GE^ERATE(CN2I  );/''=    CONVERT   2Nr    INTEGER    'K^ 

CALL  &en;erate(div?)  ; 
ex?ress$stk(m?)  =  uns  ig\;  sexpon  ; 
end; 

ELSE    IF    EXPRESS$ST?r(SP  )    =   oH    T^T■^^J    cALL   GENEP  ATE  f  ilVB  ) ; 
ELSE    CALL    ERPOR( 'CS'); 
/-2-7    IF    EXP?ESS$STK(SP)  =  INTEGERiTY?E    THEfl 

CALL    GENERATE (DIVI) ; 


183 


^LSE    CALL    EB.?CR(  'CS'); 
/-3-7    IV    IXPFi:SS^ST::(3P)  =  nT^GVR$TYPZ    THr\' 

CALL    GF  \'  FP.A  TE  (  ^'0^  X  ) ; 
ELSE    CALL    ERROR (  'CE')  : 
7-4^7    I^    EX?^ESS$STK(SP)=3C0LEAM$TY'?E    THE^J 

CALL    GENERATE(ANrX) ; 
ELSE    CALL    ERROR( 'CE'); 
EMD;    /-      OF    CASE    VAR$TTFEiSTK    -/ 
ENC; 
ELSE    CALL    ERRCB(  'CE') J 

/-    155         <MULTI?LYI\'G    OPERATCR>    ::=   -  */ 

CALL  SET$OF$TYPE(00H); 
/-    156  '^    /  */ 

CALL  3ETiOPiTIPE((?lF)  ; 
/-    157  '^    IIV  *./ 

CALL  SET$OPiTYPE(02F) ; 
/-    156  '^    MOr  */ 

CALL  SSTiOF$TYFE(e3F) ; 
/-    159  '^    AND  */ 

CALL  SET<0PiTY?E(34H) ; 
/-    160         <SIM?LE    EXP?ESSIC:r>    ::=    <rTERM>  */ 

/-    161  '^    <SIGM>    <TFEr^>  «/ 

TO  • 

if  rea^p\^^s  then  lc,* 

aptraldr  =  par.'^nur^lcc  (  s?  )  ; 

if  serfbyteptr,'^)  then 
call  eprcr( 'ne') ; 
end; 

if  sign  type  =  nec  teen 
do; 

if  expressistk:(3?)  =  unsign^expon  then 

CALL    GENERATE  OJEGF  ); 

else  if  fx?pess$stx(s?)  =  int^ger$type  then 

call  genepate(negi  ); 
else  call  error(  'uc  ' ) ; 

end; 

SIGN$FLAG  =  IALSE; 

call  copy$stacks(mp,s?); 
fnd; 
/-  162  '^  <5i^.plf  exppession>     «/ 

/';=  162  <arling  operator  >  <'tfr^>  -/ 

LO  * 

IF  READPARrS  '^"EN  DO; 

APTRADDR  =  PARMNUMLOC (MP  )  ; 
IF  SHR(3YTEPTR,7)  TEEN 

CALL  ERROR ( 'NE')  ; 

end; 

i?  chk$expr$typf  then 
do; 

IF  TYPE$STACK(^'PF1)=5F  TEEN/-  ARITH  ADD  -/ 
DO  CASE  EXPPESS$STK(SP); 

CALL  G£NERATE(UNION) ;   /-  CASE  d   -    ORD  TYPE  -/ 
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/- 
/* 
/- 
/- 


/- 
/- 
/- 
/- 


TALL  GE)N2?ATE(Arri)  ;   /-  CASZ  1  -  INTEGER  -/ 
CALL  ZRnCP( 'CE');/-  CASE  2  -  CHAH  -/ 
CALL  GENEBATE(aI:CP)  ;/-  case  3  -  REAL  =V 
CALL  ERRvOR( 'CE');/-  CASE  4  -  STRING  -/ 
CALL  ERROP( 'CE');/-  CASE  5  -  BOOLEAN  -/ 
F.Nr;/-  CASE  ''V 

ELSE  I?  TYPEiSTACKfi^PPl  )-  cH  THEN/-  ARITE  5UETPC  -/ 
DC  CASE  EX?RESS$STK(SP) ; 

CALL  GENERATE  (STDIF )  ;/=''  CASE  0  -  ORL  TYPE  -/ 

CALL  GENERATE (SUB I ) ; 

CALL  EPFOE( 'CE'); 

CALL  GE.\SRATE(SUBB)  ; 

CALL  ERROR( 'CE'); 

CALL  ERROR{ 'CZ'); 
EN'D  j 

else  ie  type$3tacx(r^^?l)=?h  then/-  boolean  or  -/ 
do; 
ie  express$stk(sp  )  =  boolean stype  thin 

call  generate (bcr); 
else  call  error{  'ce'); 
end; 
enl; 

ELSE  CALL  ERROR (  'CE') ; 

end; 
163      ^adding  cpepator>  ::=  +  */ 

call  set^op$type(05h) ; 

164  '"   -  */ 

CALL    SETiOP$TYFE(0eR); 

165  '^    OR  */ 
CALL    SET^0P^TYPE(27H) ; 

lee         <rACTOR>    ::=    <VARIAELE>  -/ 

IE    (^ORr^$EIELD(^P)    =    253)    OR    ( EORM$  EIELD(  ."<? )    =   ;^DHy    "HEN 

CALL    CALL$A$PROC(EALSE); 
ELSE 

"call  load$vari(sp); 

16"^  '^  <VARIABLE>  (  <ACTUAL  PA^A  LIST>  ) 

call  CALLiA$FROC(TRUE) ; 

les  '^  (  <EaPressign>  ) 

CALL    CnPYlSTACKS(MP,    MPPl); 
169  '^    <SET> 


170 

do; 


NOT    <EACTOR> 


/- 


IE    EXPRESSiSTK(SP)    =   BOOLEAN $TYPS    TflEl 

call  gen  irate (nctx); 
else  call  error (  'ce'); 
call  copy$stacks(y.?,sp); 
end; 

171  '^    <NU^''BER> 

17   TT?ENU^^=INTEGEPiTYPE    TEEN 

do; 

EX^RESS$STK(SP)   =1 NTEGER$TY?E ; 
ALLCiOTY=CON  V'E?TI(S?,PG5  ); 
CALL  GENiADDR(LDlI ,ALLC$CTY)  ; 


♦  / 
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/=:= 


^  L  S  ~  D  "^  * 

2Z?PESS$3TK(SF)   =UNS IGN$EXP0N ; 
CALL  CONV?TEGr(SP,POS ) ; 
CALL  GFNERATZ(LDI3); 

DO  PTR?TR=:^  TO  "Rcrsizs-i; 

call  gemeratf(bcrnum(ptrptr) ); 
end; 
end; 

172       .       '^  NIL 


*/ 


/-  173  '^  <STRINa> 

DOT 

EX^RESS$STK(S?)  =  STRING^TYPE; 
CALL  CENEPATE(LDSI ); 

DO  eoreyer; 
dc  ptrpte  =  1  to  accu.^,(0); 

call  generate(accum(?tpptr) ); 
end; 
ie  coimt  then/-  string  >  32  chars  -/ 

CALL  scanner; 
ELSE  do; 
CALL  ge;jepate(nop)  ; 
return; 
EMi; 
end; 
end; 

/-    174         <ACTUAL    para    LIST>    ::=    ^ACTUAL    PARA> 
PApy:Nry:(SP)    =    i; 

/-    175  ^   <ACTUAL    PA-A    LI5T>    . 

/-    175  FACTUAL    PARA^ 

PAR^.NU'^(^P)    =    PAPr^NUK(K?)    ^    i; 
/-    176         <SET>    ::=    [    <lll^Y>i'::    LI3T>    ] 

CALL    C0PT$STAC?C?fMP,    ^',PP1): 
/-    177         <ELEM7NT    LIST>    : := 

CALL    COPY^STACKS(S?,    SP-3); 
/-   17P  ^   <XELE^ENT  list> 

/-    179        <XELE^EriT    LIST>    ::=   <ELE^ENT> 


-/ 


*/ 

*/ 

*/ 
*/ 
*/ 


/- 


/- 

IF 


ISf'  '^    <XELE^ENT    LIST^    ,    <ELS^^ENT>      -/ 

I^   EXPRESS$STK(r^P)    <>    EXPRESS  $ST'^  (  SP  )    '^aEN 
CALL    ERROR (  'ET'); 

181    <ELEMENT>  ::=  <EXPR^SSION>  */ 

f 

1P2  '^  <EXP^ESSION'>  ,.  <EXPRFSSICN>        -/ 

EXPRESSSSTK(MP)  <>  EX^RESS$STK ( SP )  TFEN  GALL  ERRrP('ET'}; 

1£3    <GnTO  STMT>  ::=  GOTO  <LA^EL>  -/ 

IE  LO0KUP$PN$IL(SP,LA£L^EhTRY)  THEN 

do; 

call  s^tadirpt?(5); 

GALL    SETADrRPTR(e+EYTE^TR) ; 

call  gem$addr(3rl,addpptr ); 
end; 
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ELSZ    do; 

CPU    ^^.HOR^  'UI  ')  ; 

CKIL    S^NiRATE(NOP);    C-A.LL    (}FN  FP  4  TI  ( rJOP  ) ; 
ENC; 
/-    1P4         <rCC^?OUNr    STNiT>    ::=   EEC- IN    <STMT    LISTS>      END  */ 

/-    lfc5         <ST^!'!'    LISTS>    ::=    <STr.?>  */ 

/-    196  '^    <STMT    LISTS>    ;    <STMT>  */ 

/^-'    1&7         ^P^OCEDURE    ST!^T>    ::=   <PPOCEEUPE    IDENT^  */ 

CALL    CA.LL^'^^iPROCCEALSE); 
/-    ISe  '^    <PRCCEDURI    IDENT>    (  */ 

/-    186  <ACTUAL    PARA    LIST>    )  */ 

I^    FOR^'$^IELC(^^:P)    =   BUI  LT$  I N  ^PPOC    T'r'EM 
CALL    CflLLL$A$?POC(FALSE); 

ELSE  CALL  CALL$A$?ROC ( TRUE  )  : 
/-  189    <PROCEDURE  IDENT>  ::=  <irE.M  TIFIEH>  '^V 

do; 

IE  NOT  LnOKUFS^NLYfS?)  THEN 
I  C4LL  ERROR ('UP'); 

ELSE  do; 
PASELoc(sp)  =  lcck:u^$aidr; 

CALL  S^TADDP?TR(4); 

F0RM^FIELD(SP  )  =  PYTEPTP; 

IE  FCR.^$riELr(S^)  =  BUILT^IN^P^.OC  THEN 

Dc; 

CALL  SET$FAST^PN(7) ; 
IE  ETTEPTR  =  28  THEN 

do; 

PAR^^NU^'(SP)  =  2; 

par^mumlcc (sp)  =  aptraidp  ^  i; 
end; 
else  if  3yteptr  '^  21  t~e'j 

do  case  ^pyteptr  -  22) ; 

.MEw$STr:T    =   TRUE; 
DISPOSF^STI^T    =   true; 
PEi^L$STMT    =   true; 
READ^STMT    =   true; 
kPITE^ST^'T    =   TPUE; 
TaRITE^ST^^T    =  true: 
end;  /-    Of   CASE    (3YTEPTR    -    22)    -/ 

end; 

ELSE  D^;/-  NCT  EUILT  IN  -/ 

c^LL  set^?ast$pn(7); 
PAPMNu^.(sp)  =  pyteptr; 
CALL  sets?/st<pn(p); 
par^^nu^•lcc(sp)  =  ^ddrpt^; 
aptraddr  =  aptpaldp  +  e; 
lapelstack(sp)  =  addrptr; 

PFADPAFKS    =    TPUE; 
?APMNUML0C(SP^2)    =    PARi^NU'^LOC  'S?)  ; 

end; 
^wd; 


/- 


/'^ 


/- 

/i:. 


fnd; 
190      <  actual  para/  ::=  <expri3s  io,\i>  */ 

17  REAI^ST^T  THEN  CALL  REAr$Vi^R; 
ILSF  I^  W?ITZ$3TKT  THZ.^  CALL  V'B  IT^$  VAF.(  0 )  ; 
ELSI  17  NOT(READPAF^S)  THSV 

rc: 

REALPApr's  =  true; 

CALL    G7NERAT7(?AR^:a)  J 

/-para.^eter  is  an  expression  value  -/ 
end; 

191  '^  ^EX?RESSICN>  :  ^EXPR^S  SI  C;'J>     -/ 

17  N^T  '^RITE^ST^^T  THEM  CALL  ER^OR('PS'); 

ELSE    DC; 
IF    EXPRESS  ^3TK(SF)    <>    I  N'TEGER^TYPE    T-^EN    CALL    FFRC^('LVR'); 
CALL    VRITESVARd); 

end; 

192  '^  <expfessicn>  :  <e7pre3sicn>  :  'v 
ip?  ^express iom>  -v 

I^    NOT    IVRITESST^T    TH^N    CALL    EPROR('PE'); 

ELSE  do; 

IF    EX^RESS$STK(MP)    <>    UNS IGN ^EXPON    T-EN    CALL    ERPO^^'PT'); 
IE    (FXPR^SS^STK:(SP)    O    INT^GER$TYPE)    AND 
(EX?^ESS^STK(5P-2)    <>    I  NTEGER^TYPE  )    T:-^EN    CA  LL   EPROR  ( ''aP  '  ) ; 

call  v'rite^var(2); 
end; 

193  <case  3t^t>  ::=<case  express^<case  lis'"  ele^t  list^-/ 


EN 


-/ 


/- 


•J.  / 
-■v 


/  = 


19? 

do; 

laplcount  =  laplcount  +  i; 

CALL    GEN$ArLk''TPL,LArELSTAC-^(^?)  )  : 
C*SrsCOUNT    =    CASEiCOUNT   -    i; 

end; 

104       ^case  ezfres3>  ::=  case  ^express  i0i\>  of 
do; 
case$st^t=true; 

IF    (EX.^^RESS^STXfi^PT^l  )    =    UNS  ION  $EXPON  )    'iHEN 

CALL    ERF  OP i  'RT'); 
LAPEL3TACK(^P  j    =    L.aBLCOUNT; 
LAPLCOUNT    =   LAPLCOUNT    +    i: 

case$stx(case^ccunt  :=  case$coui^t  -  l)  =  2\ 
end; 

195  <'case  list  elsmt  list>  ::=  <case  list  elfr^eivt^ 

I^    CASE$STMT    THEN 

do; 

CALL    GENULLRrpoL,LABELSTAC:<rMP-lM; 

c a  ll  g^n  $  addp ( l3l , ( labels  tack ( ^p ) +1 / ^ ; 
end; 
1p6  '^  ^case  list  el7^^t  list>  ;  -/ 

196  < case  list  eleven t>   -/ 
if  case^stmt  thek 

do; 

C^LL    GEN$AD£R{3RL,LA±i^LSTACK(r^P-l}); 
CALL    GEN$ADDR(LPL, (LAPEL3TACK(SP)-1 } )  ; 
ENi; 


■•'/ 


19: 


/- 
/- 
/- 


19^^         ^CASE    LIST    FL^l^iENT^    :  :  = 

C\Si$3T^^T    =    false; 
198 


<CASE    PRE^IX>    <STr<T> 


/:;= 

2i^fc' 

/- 

200 

• 

/'-- 

201 

• 

/.= 

202 

• 

/=:= 

?'?Z 

/- 

223 

/- 


199   <case  prefix>  ::=  <case  label  iist>  : 
do; 

CALL    CEN$ALLR(P?L,(LABELSTACK(h?)+l} )] 

call  g^n$aldh(l3l,labelstac?(m?))  : 
end; 

o.ith  stmt>  ::=  <-^ith>  <^i!.g  va^iaple  list>  <;c0> 

<3<\L    STMT^ 

^V;ITH>    :  :=   V.  ITH 

<?EC  VAPIA3LE  LIST>  ::=  <vapIa--^lE> 

^REC  VARIABLE  LIST/  , 
<VAPIA3LE> 


<L0>  '.'.=    10 


/- 


2?4 

ro; 

LAEELSTACK(SP)  =  LAPLCOUNT; 

CALL    G-EN$ALDP(BLC,LAiiELSTACK(S?)  ); 

LAPLCOUNT    =    LAPLCOUNT    +    i; 

E^jr; 

2C5      <V-HILE    ST^T>    :  :  =<\vr:i  LeXEXPPES?  lONXIOX^AL    STNT>    -/ 

do; 

call  gen  ^allp.f  ppl,  labels  tack^r?)  )  ; 
call  c-^m$aldr(lbl,la3elstac:<(s?-1  )); 
E\'c; 

/-    2e^         ^'.^HILE>    ::=    V'HILE  */ 

DC; 

LAPELSTAC^(3P)    =    LAPLCOUNt; 

CALL    G^N$ALLR(t  PLJAESLSTACKfSP  )  )  : 

LAPLCOUi^T    =    LAPLCOUNT    +   i; 

end; 
20?     ^eop  st.\t>  ::=  e^p<c0nt^01  vat?iible>  :=<'70p  list-  -/ 
207  <d0>  <3al  stktn  -/ 

do; 

CALL  GEN^ArLR^P^.L,  rLAPELSTACK(S?-2)+l  )  )  ; 

call  gen>addr(l3l,labels't'ack(s?-1  '  )  ; 
end; 

20°      <'fc^  list>  ::=  ^initial  vilue>  <t0>  ^pinal  value>-/ 
do; 
ie  express$si^(^'^)  <>  express$stk  '  3p  )  then 

call  eprcp(  'et'); 
call  gemepate(geci) ; 
end; 

209  '^  <initial  valued  <rov.-nto>  ^einal  valuf^>  -/ 

pc; 

IE  EXPRE33$ST?:(r,?)  </  EXPRESS  $ST-^  ^  3?  )  THEJ 

call  error (  'et'); 
call  g^merate(leci) ; 
end; 


/- 


194 


VAKPAF^  =  falsy; 

I J    NOT    LOOKUPinMY(SP)    T"EiV 
CALL    ERROR (  'CV); 

T^LSF  ro; 

APTRADDi^  =  LOOKUP $ArER  ^  4; 

11  RYTEPTR  ^  IBF  THEN  CALL  ERRC^('CV'); 

ELS?  CALL  SET$VAR$TYPE; 

end; 
fmd; 

/-  211    <IinTIAL  VALUT^N  ::=  <EXPRESSICN> 

ro; 

C*LL    ASSir-N$V/PIf  3P-2,    TRUE^; 
Li.BELSTACKlSf )    =    LA.BLCOUNT; 
LA^LCOUMT    =    LA^LC^U.NT    +  2', 
CALL    GE"J$AIIRfERL,LALELSTACK(S?)  )  : 
CALL    C-Ef;$ArDR(L3L,(LABELSTAC'-^(SP)+l)  ); 
CA.LL    LnAD$VARI(SP-2); 

ene; 
/-  212   <ein\l  valued  : : =  <^xpressic:0 


'•V 


.;:/ 


-/ 


/-•=    213         ^REPEAT    ST^T>    ::=    <REPEAT>    <STi-:T    LISTS>    UNTIL  -/ 

/-    213  <EX?RE?SION>  -/ 

r  0  * 
ie  express $stk( 3?)  =  e00lsav$type  then 
do; 

call  generate (kotx); 

call  gen  ^allr  (plc,  labels  t  a  ck(r^p^  )  ; 
end; 

ELSE    CALL    ERR^P (  'CE')  ; 

e\'d; 

/-  214    <RE^EATN  ::=  RtptaT  «/ 

DO ;  ,1 

CALL  GEN$ALDRfLPL,LAiLCOUNT)  ; 

labelstack{sr)=la^lcount; 
laelcount  =  laplcount  +  i; 
emd; 

/-  215    <T0^  : :=  TO  */ 

do; 

CALL  generate (IMC); 

call  gen$addf(lbl,laselstack(s?-1  )  )  ; 
end; 

/'■■-    216    <LOVNTC>  ::^  DO'ai\T0  '  */ 

do; 
call  generate (dec); 

CALL  GEN$ArLR(TEL,LAEELSTAGX(3?-l ^ ) ; 

^md; 

end;  /-  OE  CASE  STATEMENT  -/ 

END  synthesize; 


END  SYNTH2; 
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rzcoDE.s^c 


E^coiEtrc; 

DFCLA.PY 

LIT 

LITER.'LLY 

FCE 

AEEHESS 

7C1$^YT"'^ 

^ASED 

I 

^  Y  TE  , 

F0H 

PYTE 

D^CI(3) 

BYTE 

T^U^ 

LIT 

FALSE 

LIT 

APCR 

A  DTP  ESS 

CFA? 

PA  SEE 

LCL 

LIT 

SXT 

LIT 

P^OC 

LIT 

SUFF^EHL 

LIT 

^CDMTJ[^(e) 

byte; 

'LITERALLY'. 
I.N  ITIALfeCH)  , 
VCB  (1)  3YTE» 

INITIALf0FeH) , 

INITIAL(64H,0AH,i: 

'1', 

'0', 

INIT^IALd^^H)  , 

AEEP  PYTE, 
'ESCLARE', 
'EXT^Pi\i  M'  , 
'P^OCEDUPE  '. 
'0FFH', 


MON 1 : P^ OC ( FUN C, INFO)  EXT ; 
ECL  FUNG  BYTE, 

INFO  ADERESS; 
ENE  MONi; 


MON?:  PROG ^ FUN C. INFO)  PYT2  EXT; 
DGL  FUNG  BYTE, 

INFO  AEERESS; 
ENE  MCN2; 


^OOT:  PPCC 

ENE  boot; 


ext; 


prints  CHAR:  PROCEEURE  (CHAR): 
EEGLAF^  GHAR  BYTE; 
CALL  rONl (2, CHAP)  ; 

ENE  print^char; 


CPLF:  PROC; 

CALL  PRINT^GHAP(13) ; 
CALL  PRINT$CHARa0)  ; 

END  cplf; 
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F:  PPOCIEU^ifADCl)  ; 

TiCI^RE  ADDl  ALr^ESS,  C  BASEL  MLl  '1)  BYTE; 
CALL  CPL^; 
DO  1=3  TO  4; 

call  ppint$cha^(c(i)) ; 
end; 

call  ppimt^cear( '  ' ) ; 
END  ?; 


C-ET$CHAR:  PROCEDURE  BYTE; 

IF  (aDD^:=ArDR  +  l  )  >  BUEE^END  T^^^N 

ro; 

IE  i':0n?{2^,^C3)    0  C^    THEN 

do; 

CALL  -^i  A  'ENL   '))  ; 

end; 

ADDP=e0H; 
end; 

P^TUPN  CFA.P; 
END  GET ^ char; 


VRITSiSTRIMC-:  PRCCELURS; 

D^CL^.PE  J  byte; 
Dn  v;hile  1; 
J  =  ge^$char; 

IE  J  0  00H  TE^N  CALL  PRIN T5CHAR( J ) ; 

ELSE  return; 
end; 

EMD    WP I TE$ string; 


D$CEAR:    FPrcEDURE ( CUTPUT^LYTE ) ; 
DT^CLARE   OUTPUT^BYTE    BYTE; 
IF    OUTPUT^PYTE   <    11   THEN    CALL    PR  INT<tCHAR  ■' OUTPUT^^YTE 

3t^H' ; 

T-LSE    CALL   PRINT$C?A.R(CUTPUT$3YTE    +    37H); 
END    D^CFAR ; 


D:  PROCErURE  (COUNT); 

DECLARE  (COUfJT,  J)  ADDRESS; 

DO  J=i  TO  count; 

CALL  D^CHAR(SER(GET$CHAR.4) ) 
CALL  D$CHARfCHAR  AMD  d^^)', 

call  ^rint^char(  '  '); 
ewd; 

END  d; 


197 


PnU'T^PCr:  P^OCFrURF  (COUNT); 
rCL  fCOUNT,J,L,K)  iYTE; 


P^FXPON:  ?POC£r.UFE(VALU^); 

Eci  (VALUE, x.couNTn  ^yte; 

DCI       ELAC-        BYTE; 

r-0  1  =  ?)   TO  2; 
EL.AG  =  false: 
couNTi  =  :^eE; 

DO  '"'HIL^  VALUE  >=  LECHX); 
VALUE  =  VALUE  -  LSCI^:0  ; 
FLAG  =  TFUE: 
COUN'Tl  =  COUNTl  +1 J 

SNc: 

l'^   ^LAG  OP  (X  >=  2)  THE'J 

CALL    PPU'T^CHAPfCOUNTl  1  ; 

else  call  ?pint$cfar('  '); 

petupn; 
END  p$expon; 


LO    L    =   f*    TO    (CGUNT-1)  ; 

?crNiT(L)  =  get^cfar; 
enl: 

C4LL    PPIMTiCHAiK  '    '): 
IF    3CENUM(C0UNT-1)    >=   e2H    THEN'    CALL    PP  PITSCFAP  ( '-' }  : 

ELSE    CALL    ^RIN T^CHAR(  '  + ' ) ; 
CALL    PRINT^CHAR(  '0') ; 
CALL    PPINT^CE*.P(  '.  '); 
DO    L=0    TO    COUNT-2; 

j,T  =  BODNur^CD ; 

K    =   SHP((K    A\'D    F^H^,4:);    /-    EXTRACT    '^HE    MSE    F^^.    T^^i^    P^te    -/ 

call  d$c?a^(k); 

ot  =   (j  and  ■3fh);         z"^'  extract  t^e  lsd  fi'':  te^^  byte  '"•  / 

call  e$char''j): 

emd; 

j,k  =  (^cdnumfcount-1)  and  7fh )  ;  /-  get  rid  0^  sig^i  -/ 

IF  K  >=4en  THEN  CALL  PRI  iMT^CHAR  (  '+ ' )  ; 

ELSE  CALL  PRINT^CHAR  ('-' )  ,*  /-  SIGN  OF  EXPO\'ENT  -/ 
CALL  PRINT^CHAR(  'E')  ; 
CALL  P$EXPCN  ^K  AND  3FH); 

EMD  p^int^^cd; 


PRINT$REST:  PROCEDURE; 
D^CLAFE 
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FOLS 
NrlCS 

Lrii 

LIT^ 

■R^L 

PLC 

PPO 

AN'DX 

BO? 

papr. 

PAPrv 

LPIB 

V'PTI 

LDSI 
KA3  5: 
IF  GEAR 

do; 

CA 

CA 

end; 

IF    (C 

re 

(CHAP=L^ 
(CHAP=B 


LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
=  FN  LP  THEN 


LL 
LL 


P( 

BO 


.(  'E^D 

ot; 


'24E'. 

'4H', 
'0EH' 

?Cn 
'3FH' 
'3FH' 
'5E', 
'32H' 
'33H' 
'43H' 
'44H' 

'54H' 

'43H' 
'4CH 


')); 


ENI 


C  ^'A  T 
CHAR 
CHA? 

RETURN  ; 

PRINTER 


IF 
IF 


^'AR  =  A' 

rAR=l'/ 

L)  0? 

^L)  0 

(CHAR 

LL  D( 

=  KA 

=  LL 

=  LD 

est; 


RT^)  OR  (CHAR=WRTI ^  OR 

RTS)  TFEN  LC;    CALL  E(l);  RETURM;  ENT ; 

(CEAP=LriI)  OR  (C?AR  =  ALL)  OR  (C^4R:.LITA'  OR 
R  (CHAR=RLC)  OP  fC-JAR  =  P?0)  Op 

^par^)   or   (c-ar=?armv)   teen  10 ; 

2);  petupn;  end; 

SE  THEiM'  do;  CALL  r(4);  return:  ;  fkd; 

IB  tfem  lo;  CALL  PRiNT$Pcr ^8 ^ ;  return;  ene; 

SI    TFEN    do;    CALL    a'RITE$STPI  rJC  ;    RETURM;    END; 


/----   Program  execution  starts  ^ere 
mainlp'e:  lo  ; 

I^  MCN2(15,^CR)  =  2ff  T'^EN 

D^; 

CALL  ^^  (  'NO  FIIF  FOUND'))  ; 

CALL  root; 
end; 

DO  ''/EILE  l; 

IV   azT^CEAP  <=  72E  THEN 
DO  CAS"!^  CRA^; 

CALL  ^(  .(  'Hnv      '))  ; 
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C/LL 

^(  . 

t'L-^L" 

')) 

CALL 

?(. 

)  ) 

CALL 

P(. 

(  'LLIB 

X  \  \ 

CALL 

^(  . 

(  'Lni 

r  \  \ 

CALL 

?(. 

(  'PPO 

X  \  \ 

CALL 

P(. 

(  '^TN 

/  \  \ 

CALL 

^(. 

(  'SAVP 

X  \  \ 

CALL 

?(. 

(  'UNSP 

X  \  \ 

CALL 

P(. 

(  'CNV3 

X  \  \ 

CALL 

?(  . 

(  'CN'VI 

•  \  \ 

CALL 

?(. 

(  'ALL 

X  \  \ 

CALL 

P(. 

( 'LITA 

^    \    \ 

CALL 

P(. 

( 'ALD3 

•  \  \ 

CALL 

P(. 

( 'ALDI 

X  \  \ 

CALL 

P(. 

( 'SUP? 

X  \   \ 

CALL 

^(, 

(  'SUE  I 

CALL 

P(. 

( 'MUL3 

CALL 

P(. 

(  '^'iULI 

X  \  \ 

CALL 

P(. 

(  'LIVE 

^   \    \ 

CALL 

^(. 

(  TIVI 

X  \  \ 

CALL 

?f  . 

(  'hDDX 

X  \  \ 

CALL 

Pf  . 

(  'ECLI 

^  \  \ 

CALL 

?(. 

(  'NFC I 

X  \  \ 

CALL 

P(. 

.('LFOI 

•  \  \ 

CALL 

^( 

.(  'GZOI 

^  \  \ 

CALL 

P( 

.(  'LSSI 

•  \  \ 

CALL 

P( 

.  (  T-TP.I 

^    \    \ 

CALL 

v( 

.(  'XIN 

*  \   ^ 

CALL 

P( 

. ( 'lOLB 

X  \  ' 

CALL 

?(. 

,  (  '  N'  E  0  ■? 

•  \  \ 

CALL 

P( 

.  (  'LZCL 

X  \  \ 

CALL 

?( 

.  (  'G^03 

/  \  \ 

CALL 

?( 

.(  'LSS5 

X  \  \ 

CALL 

^( 

.  (  'CPTB 

'  \   \ 

CALL 

P( 

.  (  'ICLS 

X  \  \ 

CALL 

P( 

.  (  'NI03 

^    \    \ 

CALL 

Pf 

.  (  'LEOS 

X  \  \ 

CALL 

P( 

.  (  'C-EOS 

X  \  \ 

CALL 

P( 

.(  'LSSS 

/■  \  \ 

CALL 

?( 

.  (  'GP.TS 

/  \  \ 

CALL 

P( 

.  (  'ECSE1 

,  X  \  > 

CALL 

?( 

.('NEOST')) 

CALL 

P( 

.(  'INCLI 

.')) 

CALL 

?( 

.('INCL?')) 

CALL 

?( 

.  (  '\i^G"B 

')) 

CALL 

P( 

.  (  'NEC- 1 

')) 

CALL 

P( 

.  ( 'Qcr.^ 

')) 

CALL 

P( 

.(  'COMI 

')) 

CALL 

^( 

.  (  'NCTX 

')) 

CALL 

P( 

.(  'AMDX 

')) 

CALL 

P( 

. ( '^OR 

')) 

CALL 

^( 

.( 'ST03 

')) 

CALL 

P( 

.( 'STOI 

')) 

CALL 

P( 

.('STO 

')) 

2(?0 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
C/LL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
C^LL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CAIL 
CALL 
CALL 
CALL 
C-^LL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


?( 
p 

P 

P 
p 

P 
p 

P 

P 
P 

P 

P 
P 

P 

? 

P 
P 

P 
■D 

p 

? 
P 

? 

P 

P 
p 

P 

p 

P 

? 
P 

? 

P 
P 

P 

? 

P 

P 
p 

P 

P 

P 
P 

P 

P 
P 

P 

p 
p 

P 

? 
P 

P( 


)\' 


('STE3  ')) 
■■  'STL  I  '"  " 
'STD 
'UN  10 
'FTLI?' 
'IST^C  ' 
'CNAI  ' 
'BRL  ' 
'^LC  ' 
'CK2I  ' 
'  ^  K  S  S  T  ' 
'7CHC-  ' 
'PARr  ' 
'P/RMV  ' 
'PAPi^7' 
'INC  ' 
TEC  ' 
'D?L  ' 
'\v?T  ' 
'SLP  ' 
'LLSI  ' 
'CAST    ' 

'Lcr  ' 

'LCDl  ' 

'LODI  ' 

'RIVP  ' 

'?LVI  ' 

'prvs  ' 

''■'RTP  ' 
'VPTI  ' 
'VPT3  ' 

'ii:^?   ' 

'A^S   ' 

'  C  T  N|    ' 

'CCS  ' 
'  A  ^  C  T  N  ' 
'FX?   ' 

'  T  M      ' 

'SCRT  ' 
'opD  ' 
'ECLN  ' 

'rxF  ' 

'T^UNC' 
'POUND' 
'OPC  ' 
'CHR  ' 
'SUCC  ' 
'P^EE  ' 
'SEEK  ' 
'PUT 
'GET  ' 
'RESET  ' 

'fev;rt' 
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CALL 
CALL 

CALL 

CALL 

CALL 
CALL 


ELSr 
CALL 

E\'D  k.aimine; 

E^'L    LECOLE; 


CALL 
PR  IV 
/-    OF 


pt.rNEw    ')) 

P(.(  'LIS^Z')) 

pC.Cevd     ')) 

P( .(  'XTRNL')) 
^(.('PIV       ')) 

P( 

T$REST 


Czzzz   ')); 


/'- 


AS^    STATE^Ei'IT    -/ 


DO  v;hile  -/; 


:e? 


SYr.^ABL^.SBC 

$pArEyirTH^?e)  titl'^( 'sy'^  -  st^eol  taple  print  utility'^ 

-LIN'K    SYr^.OPJ,THIN'r.OEJ,PL^,P0.LIP    TO    SYf^.LNK 
-LOC^'^F    SY^.LNX    COI)F(l^?H) 

«  SYr^BOLiTABLF$PPINTOTjT 


T^IS    PPOCrRftM    TAKES    THE    OUTPUT    ^P0^^    TH^    PASCAL    SYn*^CL   T.^^LE 
AND    CONVERTS    IT    INTO    A    REACAPLE   OUTPUT    TO    TACIIITAT^ 
lEPUCGINr . 


SYN'rCO; 

LECIARE 

LIT  LITERALLY  'LIT'^ALLY', 

EXT  LIT  'EXTERNAL', 

FCB  AELRE5S  INITIAL  ^5CE), 

ADD^  LIT  'AEDRT^SS', 

FCP^RYTE  BASEL  ECB  (l)  BYTE, 

I)ECI5(5)  APTR  INITIAL(l?0e£M0re'.ie£M'^,l  ^  . 

DECI(3)  BYTE  TI ITIAL  ( 1'^?  ,  If^,  1 )  , 

I  BYTE, 

TRUE  LIT  '1', 

^ALST^  LIT  '?', 

COPYING  BYTE  IN  IT  lAL  (  TPT'E  )  , 

ALDRl  ALLRESS  INITI/L  (1?0E), 

CFAP  BASED  ADDPl  BYTE, 

BUFFiEND  LIT  '0FF^', 

FOR^MASK  LIT  '?7F', 

DCL  LIT  'DECLARE'; 

DCL 

PROC  LIT  'PROCEDURE', 

EO^FILLEP  LIT  '14,E', 

BCDNU^(e)  BYTE, 

FILE$TYPEf3)     BYTE  DATA ( 'S ' , 'Y ' . 'r ' )  . 

FORM  BYTE, 

TABLE^STAPT    ADDB,  /-  STARTING  LOCATION  AT  C  O^-'PILAT  lOi^^  -/ 

OFFSET  ADLR,  /-  NEW  VALUE  OF  TABLE  ENTRY  -/ 
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PA?^$LISTIN1(1?)       APDR,    /-    LCCATICM    C?    SU3PTN    ^CR^'AL    ?^?.^^. 

SUBPT^J      ?YT^    INITIAK?)  . 

PAPK^NaM(l^)    PYTI,    /=;'    K?EPS    COUNT  OF    NU^'^5I:p    c?    PAPAKTTFPS    '■ 

ADIR,    /-    SAVES    PASF  lOC/TION    -  •' 

3YTE    ,    /-    LENGTH    0^  PPINT^JAMi    -/ 


SAVFSEASE 

LPN 

PASF 

SETELTCP 

S^TPL 

L 

PTH 

APTPJEDP 

ACDPPTP 

EYTEPTR 

P^IMTNAKT 

SYMHASF 

ALCH,/-BASE    OF    CU 
AIIR,    /-    CUP PENT 
ALDR, 

Ari}P,/-LE\'GTH  OF 
PASSE  EASE  EYTE,/ 
ADDP,/-  UTILITY  V 
BASFD  .ipTP^DE^  AE 
BASEL  APTR/IIR  BY 
ADEP  ,/-  SET  PPICR 
^YTE, 

IAST$SBTBL$IE    AEER, 

PAPArNU^LOC         AEDR, 

SB7BL3COFE  ADDR; 


^■PE 
TOP 

SYf^ 
-IS 

LP, 


n;t  en 

CF  T 
^OL  T 
FOP    T 


m  T3  Y  ^; 

AE  IE 

ABLE 
E  OF 
ABLE 


/ 

f  S  Yf^  1 


-/ 


ir    / 


E-NTRY-/ 


■  —  » 

"^0    LOCPCUP    OP    ^iJTEP    ''V 


MONl:  PPOCEEURE  (F,A)  EXT; 

E^CLARE    ^   BYTE,    »    ADDRESS; 

EN'D  ^'0^'l ; 


i^CM?:  PROCEDURE  (F,A)  BYTE  EYT ; 

DECLARE  F  BYTE,  A  ADDRESS? 
END  ^^0N2; 


BOOT:  PROC  EXTT 

END  boot; 


PRINT$CF^R:  PROCEDURE  (CHAR); 
DECLARE  C^AR  BYTE; 
CALL  ^0N1(2,CEAP); 

END  ppintscear; 


CPLF:  PPOCFDttre; 

CALL  PRINTiCEARa3)  ; 
C4LL  PPINTiCHARd?); 

END  c^lf; 


PRINT:  PROC (A); 

DCL     \   addr; 

CALL  N'0N1(9,A); 

END  print; 


2?4: 


IF    (Arrpl  :=AE'LR1  +  1)    >    Bl'FY^ENr    T^fN 

do; 

1'^   K0\'?(2e,^CB)    <>    0    THFN 

ro; 

call  print (.('the  enl  $')); 

end: 

?^TUp:i  c?ar; 
E\'D  c-et^char; 


D^CH/V^.:  PR0CEDURE(0UTPUT$3YTE); 
declare  OUTPUTi^YTE  BYTE; 
IE  OUT^UTiBYTE  <  10  THEN  CALL  PRIN T^CHA R( OUTPUTiPYTE  + 

ELSE  CALL  P^IMT^CFAR ( OUTPUT^PYTE  +  37H); 

END  d^char; 


D:  FPOCED^'PE  (COUNT); 

DECLARE    fCOlTNT,    J)    ADDRESS; 

DO  .1=1  TO  count; 

call  d$char(sp^(byte?tr,4:;)  ; 
call  d<cear(pytept^  amd  ejf); 
aptradde  =  aptraddr  +  i; 
end; 
END  d; 


/= 


.  %i^  .<«  0'«i« 


'  t*  'I-  'X"   'I*  1* 


'i'  *»*  'I*  »^'  't*  '.'  »(''!*  *l*  5|'  »|^  ^*  *^*  '••  *»*  V  *!*  '1^  ' 


'1*  ^:^  »(^  n'  *!*  't*  '.*  'i^  'i'  'i'  'i*  'I*  / 


PRINT^BCD:  PROCEIURE  (COUNT); 

D-CLAPE  (COUNT,  J,    T.  ,    l)    3YTE; 

P$EXPON:  PROCEDURE (VALU); 

DECLARE  (VALU,  X,  CCUNTl)  BYTE; 
DECLARE  ^LAG  BYTE? 
DO  X  =  0  TO  2; 

EL  AC-  =  false; 

COUNTl  =  3?p; 
DO  VHILE  VALU  >=  DECI(X); 
VALU  =  VALU  -  DECI rx): 

ELA^  =  true; 

COUNTl  =  COUN'Tl  +  i; 

end; 

1 7  EL  a:-  GR  (X  >=  2)  THEN 

CALL  ??IKT$CHAP (COUNTl  )  ; 
ELSE  CALL  PRINT$CHAR('  '); 

end; 
retu'^n; 
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END  p??xpon; 


DC  L=  0  ':o  ccorMT-i^; 
BCDNur^U)  =  ^yteptf; 

APTf'ADDP=APT?.ArD?.  +  l ; 
end: 

CUL    PPINT$CFAR(  '    '); 
IF    BCDNUK(COIJNT-l)    >=    S  ^H    THE^ 


CALL    PPINT$CHAR( '-'); 


THE 
THE 


LSD 


ERO^' 
EROM 


ELSE    CALL    PRIMT$CFAR( '+' ) ; 
C4LL    PRINTiCH4R(  '0'); 
CALL   PPIN'T$CHAP(  '.  '); 
DC    L=0    T^    COUNT-2; 
J.K=^CDNUK(L); 

K=   SHR((K    AMD    3F2H),4);    /-    EXTRAC"^ 
CALL   D^CFAR(K); 

J    =    ( J    K'lD    0VTJ)  ;  /=:^   vXTRACT 

CALL    D^CHAP(J); 

E  ^'  D  * 

J.K  =  (?CDNUi'^(COUNT-l)  AND  7FH);  /^ 

IF  K  >=  4eH  THEN  CALL  PRI NT^CHAR ( '^ ' ) ; 

ELSE  C/LL  PHIMT$CHAR(  '-')  ;    /*  SIG'I  OF  EXPOME 
C^LL  PRINT^CFAR(  'E'); 
CALL  PiFXPON{K  AND  ?.FH )  ; 
END  PRINT^iCr; 


GET  Rir  OF 


THE 
THE 

SIGN 


•0  Y  '^  Y  =;=  / 
FYTE  '■'/ 


dotsym:prccedure; 

FC^^?YTF(32)  ,    ^CPiBYTEO)    =    3; 

DO  I  =  e  TO  2; 

FC?$BYTE(l+9)  =  ^ILE$TYPE( I } ; 

end; 

if  m0n2(15.fc'e)  =  255  then 
do; 

call  p?int(. ( 'efpop — gone  to  foot  ^')); 

CALL  boot; 
emd; 

END  dotsym; 


diskerr:  prog; 
do; 

call  print( .(  'df 
CALL  foot; 
E'Jd; 
END  diskerr; 


^')); 


PFINTD^C:  PPOC(YALU^): 

DCL      VALUE  ADDR,  I  BYTE,  COUNT  BYTE; 
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rcL  FLAG  ly^f; 

FLAO  =  falsf; 

DO    I    =   0    TO    4; 
COUNT  =  3eF; 

DO    'A'EIL^    VALUF    >=    DFCI5(l): 

VAITJE    -    VALUE   -    LFCI5(I); 

FLAG=    TxRUE; 

co^nt  =  count  +  1; 
emd; 

IF    FLAG   OR    (n=   4)    THEN 

CALL    PPINTCHAH(COU'^T): 
ELSE 

call  ?rintcear(  '  '); 
fmd; 

return; 
END  ■drintdec; 


ST^TADDFP'^R:  PROC  (  OFFSET  )  ; 
DCL  OFFSET  ALDR; 
AFTRADDR  =  EASE  +  OFFSET; 

END  setaddrptr; 


SET^?AST^?\':  PROC  (  OFFSET  )  ; 
DCL  OFFSET  BYTE; 
CUL  SET*DDR?TR{6)  ; 
CALL  SETABDRFiR(?YTE?TR  ^  OFFSET); 

END  s^t$past$?n; 


COPY$S^T^L:  PROC  ADD?; 

/-  COPIES  FILE.SYh  TO  MF^'ORY,  LOor^INC-  FOR  TV.O  FO^FILLERS 
(lAH)  IN  A  ROW  -/ 

DCL  K  addr; 
K  =  3; 

DO  ^EILE  COPYING; 

CALL  SETADDRPTE(K); 
RYTFPTR  =  GFTCFAR  ; 
K  =  K  +  1; 

if  eytfptr  =  eo"filler  then 
do; 

K  =  '<  +  1; 

CALL  SETADDRPTRC<)  ; 
RYTEPTR  =  GETCHAR; 

if  fyteptr  =  eoffiiler  teen 
do; 
COPYING  =  false; 

BY'^EPTR  =  e0H; 

end; 
end; 
end; 

RETURN  K; 


7)1 


E"!D  C0?Y^SET3L; 


RESET$LOCATICN :  FRCC(A)  AltR; 
CCL  \    ADDP; 

OFFSET  =  A  -  taple^start; 

RETUR'^J  OFFSET? 
F^!D  RFSF'^^LOCATIOi^  ; 


TABl:  PROC; 

CALL  PRI.MT(  .  (  ' 
END  TA3i; 


$')); 


TAB2:  PROC; 

CALL  TAPi; 
CALL  TA3i; 

END  tabs; 


WRITE^ENTRY:  P^OC; 

DO  C\SF  (FOPK  ANL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


EMC 


PRINTf 
^RINT^ 
?PI.NT( 
P^INT( 
PRIiNT( 
P  P  I N  T  ( 
CALL  PR  I  NT ( 
CALL  PPINT^ 

fmd;  /-  CA.SE  -/ 
w^ite^fntry; 


07H); 

'LA EEL  EiV'^'Y  ^  ')  )  ; 
'CONSTANT  ENTRY  ^ ') ): 
'TYPE  ENTRY  $'))>* 
'VARIAPLF  ENTRY  $' ) " 
'PRCCELURE  ENTRY  S' 
_  UNCTICN  EN' TRY  $  ')  ) 
^ILE  FNTPY  $')  ); 
USER  LECLAREL  ENTRY 


)) 


'•nr 


^  \  • 


PRINT^IL:  PROC; 

rcL  siz^  eytf; 


CALL 
SIZE 
DO  I 


fn'l; 

CALL 


SFTADDRPT^(e) ; 

=  pyteptr; 
=  1  to  size; 

CALL  SFTALrRPT"D(e  +  I  ); 
CALL  ^RINT^CPARf lYTEPTR)  ; 

crlf; 


ENL  PPINT<Ii; 


PANC-FP:  P-OC(A); 

rcL  (A,  PASEi)  aedr; 
PAS  El  =  pasf; 
3As^  =  a; 

CALL  SET^ADER$?TP(7)  ; 

CALL  crlf; 


2(^8 


ZNT 


TAIL    '^A'P?* 

nl'ii    P?IMT(  .  ( 'wi-H    LC'.v    VALUF    $')); 

I?    (S^-^^(?03r ,?)    /NC    FORi'-^hASK)    TFIN 

CALL  P5IMT^CEAR(PYTi:PTR)  ; 
FISF  CALL  ?PINT^C^C(ACERPTP): 
CALL  P^IMT(.('  AND  HIGH  VALUE  ^'i); 
CALL  SSTiALDR^PTP(9); 
I"^  (SFP(^0R^<,7)  AND  ^OP^MASK)  THFM 

CALL  P^IN'T$CHAP(T^YTIPTP)  ; 
ELSE-  CALL  PRINT$rEC  (  ALLRt^TR  )  ; 
^ASF  =  BASEi; 
PANCrFP; 


USER$rEFIMEr t  ppcc; 

do  case  (sfp(  by'^eptp.z) 
do; 

call  p^int(  .(  'enu^'ep 

CALL  PRINTS  id; 

CALL  PPli\T(  .(  'T'-^E  VA 

CALL  SE?^PAST$PN(7) ; 

CALL  PRINT$D^C(3YTiP 

emd; 
do; 

do  case  (sep(3yteptr 
call  ppint( .( 'an  e 
Di^; 


\ND 
ATED 
DUE 
TR); 


1?  Q  p  y.  y  a^ 

TYPE  - 

IS  $')) 


SK); 


.6) 


;PATED  S 


•^^*Asx) ; 
rSRANGE  ^')); 


EN 
CA 

end; 
do; 

CA 
CA 
I 
L^ 

CA 
CA 

CA 
CA 
DO 


CALL  PFIMT(.('AN  integer  SUBRANGE  $') 
LPN  =  LPN  +  13;   /-  LENGTH  OF  4FH  ENT 

emd; 

CALL  PRINT(.('a  CrARACTER  SUBRAMCE  i']) 
D;  /-  OF  CASE  -/ 
LL  RANGERfPASE) ; 


) : 
?Y  'V 


'  \  > . 


LL  PPINT( .( 'AN  ARRAY  ^ 
LL  SE'T'ADDPPTR(f^)  ; 

=  ^yteptr; 

N    =   LPN    +    13    +    (4-1)  :       /-■=   LEN 

cple; 
TAP?; 

PRINT( .(  'TH^    CCMPON 

s^TADDPPT^de); 
SE  pytfptr; 


EN 

c\ 

CA 

CA 


LL 
LL 
LL 
LL 

CA 
CAL 
CAL 
CAL 
CAL 
CA.L 
CAL 

d; 

LL 
LL 
LL 


GTE    0 
ENT    TYPE    IS 


F    I'^E 


S   i')): 


I ""'  T  R  Y 


:;:/ 


PRiN-^r 

PRINT ( 
PRINT( 
^RINTf 
PRINT( 
PRIi\Tf 


( 


/-    OF 

crlf; 

TAP2; 

PR  I N  T  r .  (  ' 


'SCALAR    <i 

'INTEGER 
'CHA^    ^') 
'REAL    $') 
'STRI^1G    $ 
'POOLEAN    $')); 
CASE    -/ 


'M; 
$ ' ) ) ; 
); 
); 
)); 


IT    REOUIRSS    $  'M 
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CALL 
CALL 
CALL 
CALL 
CUL 
CALL 
CALL 
C»LL 
CALL 

ro  wH 

*  ?T 
CAL 
LPN 
I    = 

ENi: 
do; 
end; 
ro; 

C*LL 
CALL 

SAVvp 

3  AST 
CALL 

PA.  S"^ 


PR  I 

PR  I 
C^L 
TAR 

PT3I 

PRI 

PPI 
SET 
ILE 
RA  L 
L    R 


NT$r 
N  x'  \,  . 

f; 
2; 

,\'T(  . 
hUtl 
N  T  (  . 
ALLR 
I  <' 
LR  - 
ANGE 
LPN 
-    1; 


'  ^  T  R  f'  ?  ) ; 


^C(  ALDr.^TR  )  ; 

(  '    RYTIS    OF    STORAGE^  '  ) ) ; 


(  'TWERE    IS/A^E    i')) ; 

ECfn; 

{'    nr'ENSICNS    IN    THIS    ARRAY    ^')); 
PTR(9) ; 
>    0; 

APTFABDR    +    4; 
R(ArDRPTR) ; 
+  13;       /-    LENGTH    OF    '^I'd    ENTRY    -/ 


PRIiNT(  .(  'A    SET 
SEiADE^FTR(5) ; 

ASE  =  ease; 

=   ALDRPTP; 

print$ie; 

=    SAVEiPASE; 


OF  i')); 


rn; 

CALL 
C^LL 
SAVE^ 
EASE 
CALL 
RASE 
EMIt 

do; 

C^LL 

CALL 

SAVE$ 

RASE 

CALL 

RASE 

end; 

end:    /-   r 
■ND   USEP$DE^I 


PlTNTf  ,(  '-*    FILE    OF    i  'M  : 
SETADDRPTR(5  )  ; 

ASE  =  rase; 
=  ailr^tr; 
^R  ri  T  ^  I D ; 
=  save^ase; 


PRINT  (.('A   POINTED    CE    TYPE    ^  '  .■  ) ; 
SETADDRPTR(5); 

RASE  =  rase; 
=  aldrptr; 

PRINT^Ii; 

=  sav^$rase; 

E  CASE  -/ 

n^D; 


CFECE^COLLISION:  PROC; 

/-  LOOaS  for  ADDRESS  I  .N  COLLISION  jIELD,  TEEM  -E.^IS 

COLLISION  CHALN  ^ACrr.vARD,  PRINTING  P^IN '^.JAM'^S  .  STOPS 
VEEN  \'0  rURTHUR  COLLISIONS  OR  TARLE  ^UNS  OUT.  -/ 
CALL  SETADDRPTR^e) ; 

LPN  =  ryteptr; 

CALL  TAEi; 

CALL  PRINTS  .( 'HASH  VALUE  =  i'))'i 
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C^IL  SETAriRPTH'e) ; 
CALL  ?"P'IN'T§D7C(3YTFPTH)  ; 
CALL  SFTALDRPTE^:) ; 
17  AIIRFTR  =  2eH  THI^! 

CALL  ^^r]T(.{'  AMD  TFiPE  AP^  NO  COLLISIONS  i')); 
ELSF  L^; 

sA^'i$PASE  =  base; 

DO    WHILE   ALDP.PTP    >-   TA1L~^3TAH"; 
3ASE,APTP«DD°    =   ADCPPT^; 
C*LL    PT=.INT(.('    IvEICE    COLLIDES    ';'ITE    i')); 

CALL  ppint^id; 

CALL  SETADDRPT^.  (0)  J 
CALL  "AP2; 

ewd; 

IE   ADDRPTP    =    32R    TlTi 
CALL    PPIf'.r  (  .  (  'AND    THERE   ARE    MO    EUPTHEP    C^LLISI0\"S    ^'M; 

ELSE  do; 

CALL  PRINT (.('  ANY  OTHER  COLLISIONS  OCCUR  IN  THEt')); 
C  A  LL  C RL"^  * 

c4ll  print(  .( 'built-in  symbol  table  $')): 

end; 
:=ASE  =  save^base; 
emd; 
CALL  cple; 

EMD  CHECK$CCLLlSIOiK 


ENTPY$^^4D:  PPOC; 

CALL  vpite^fntry; 

CALL  PPINT$ir; 

CALL  cf^ck^collision; 

GALL  TABi; 

END  e.ntry$-ead; 


CHECK^TYPE:  PROC(A); 

DCL  A  byte; 

DCL  TY^E  byte; 

TYPE  =  (SHR(A,  3)  A.ND  FOR^;MAS  K  ^ ; 

DO  CASE  type; 

/*  scalar-ordinate  -/ 

CALL  ?rint(.('  scalar  orbinate  $''); 

/-  integer  -/ 

call  print ^.(  '  INTEGER  $  ')); 

/-  ch^.ractef  -/ 

call  print{.('  character  i')); 

/-  real  -/ 

CALL  PPINT( .(  '  PEAL  $'))  ; 

/-  COr^PLEX  ■•'-/ 

do; 

SAV^^BAS^  =  base; 
CALL  set^past^pnO)  ; 

BASE  =  AirRPTP; 
CALL  SETADDPPTR(4); 
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I^  (BYTZPT?.  ANT  ^ORi^^i^iASK  ) 

CALL  USI^iLEIU'ED; 
ILSE  CALL  POINTS  id; 

ENi; 

/-  ^ocltan  -/ 

call  p^jnt^  ( '^oolyam  ^')); 

end;    /':=  CASS  '"''PE  -/ 

CALL  cple; 

CALL  TA?i; 
SNL  CHECKS  type; 


=  6  r  \ 


CF^CT$TYPE$COMST:  PROC(A); 

/-  CHEC^'  FOP  TYPE  OE  CONSTANT  AN'L  PRINT  IT  -/ 

LCI  A  eyte; 
DC  c&SE  a; 

/-  0  UNSICN'EL  IDENTIEIE^  -/ 

C«LL  PPINTf.C  UMSIGNEL  IDENTIEIEH  t  ' )  ) ', 

/-  1  INTEGER  -/ 

CALL  PPINTf . ('  INTEGER  t  ' )  ) ; 

/*  2  PEAL  -/ 

CALL  ??INT( .('  PEAL  i')  ); 

/-  3  STRING  -/ 

CALL  ^RIMTf  .  (  '  STRING  $'M  ; 

/-  4,5,6,7  NCT  DEEIN'ED  -/ 
•  •  •  • 
>  >  >  > 

/=:-  e  SIGNED  IDENTIFIER  -/ 

C\LL  ?PI.^JT(.('  SIGNED  IDENTIEIZR  i'^); 

end;  /-  CASE  -/ 

END  check^ty?e$co:j£t; 


PPIMT^PFT:  PROC(A); 

DCL  A  byte; 

IE  A  =  1?  THEN 
C*LL  PRINT (.('THE  ASSIGNED  PRT  LCCATICN 
ELSE  CALL  ?RINT(.('TFE  ASSIGNED  PRT 
CALL  SET$?AST$FNLa  ); 
C^LL  PPr'lT$D^C(ADDR?TP); 

CALL  crle; 
END  print^prt; 


VQP  THE  SB? 
LOG  AT  I  ■'^N  IS 


IS  3')); 


PFINT$LABFL:  ^ROC; 

CALL  ent^y^head; 

CALL  PRIMT(.('THE  ASSIGNED  LABEL  VALUE  IS  $ 
C4LL  S^'^$PAST$P'J(7); 
CALL  P^INT^rEC(ArDR?TR)  ; 

CALL  crle; 
EMD  ?rint$label; 
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P^U'T$CON'ST:    P^.OCJ 

ici   (ty^e»?i?e,i  )  ?yte: 
CALL  7;hite$^nt?.y; 

CALL    PPI^;T^IL; 

Ci^LL  cefcksccllifion; 

C^LL  PPIMT(.('      THE  CCMSTANT  TYP"  IS$')); 

TYPE  =  (S^R(E0?r^,3)  ANT  ^E^r); 

CALL  C^ECK$TY?2$C0MST(TYPE)  : 

CA.LL  CPL^; 

CALL  ?PINT(.('      TFE  CONS'^AN'T  VALUE  =  ^')); 

IE  TY^S  =  1  THEN 

do; 

CALL    SETiPAST^F\i(7)  ; 
CALL    PPDiT^LECfAriRPT?); 
LPN=L?M+9; 

ent; 
ie  ty^e  =  2  teen 
do; 

CALL    SET^PASTiPM(7)  ; 
^ALL    PRlNT$ECr^e); 
LPN=L?'1+15; 

end; 
ie  (type  =  0)  op  (type  =  z)   ^p  (type  =  6)  t-^^n 
do; 
call  set^past^pn(?)  ; 

SIZE  =  BYTEPTP; 

DO  i  =  1  TO  size; 

call  set^adrp^ptr(7^l?n  +  i  )  ; 

call  ^rint$c?ah^byteptr)  ; 

end; 
lpn=lpn+size+£; 
EMi; 
TTNjD  p^intsconst; 


PINT^TYPE:  PRO 

CALL  E^IT^v$ 

CALL  PPIMT( 

DO  CASE  (SH 

CALL  PR  IN 

CALL  PPPJ 

CALL  PRI^i 

CALL  PRIN 

:  /-'^   4  =::/ 

;  /-  5  -/ 

;  /=:=  e  -/ 

do;  /-  7 

CALL  SE 

SAVE$BA 

■BAS^  = 

CALL  S^ 

IE  (PYT 

CALL 

ELSE  CA 

c; 

^eal; 

. (  'tf^  parent  typ 

r(f0rv',.'3)  a\'d  for 

t(. ('integer  ^  ' )  ) 

T( .( 'FEAL  $'}  );  / 
T(.('CHAP  i'));  / 
T( .(  'POOLEAN  $')  ) 


E  IS 
Mr^AS 

;  /^;= 

::=  1 

'•=  2 


S  i' 


0 


U; 


T<PAST^PN(7)  ; 

SE  =  base; 

aedrptr; 

taddrptr(4:); 

SPTR  and  EOR^MASK)  =  g'^H  THEN 

usepsdeeined; 

LL  PRI^JTiID; 
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EAST  =  SAV"E"^^AS^; 
ENT  P?INT<^-TYP2; 


PRINT$V/>HIAPIE:  PHOC; 

CALL  entpy^hfad; 

CALL  PPINT^.CT^F  VA^IA^LE  TY?^  13  ^'j); 

CALL  CFECK^TYPE^POP?^)  : 

CALL  P?IMT^PFT(7); 

END  ppin't^vapiaple; 


SUP ROUTINE:  PHOC; 
ECL  J  pyte: 
call  ppint(  .  ( 'thept^  ape  ^')); 

CALL    SET^PA?T$PN^7); 

J    =    PYTEPTP; 

CALL    P^.lMT'ir'EC(^YTE?TR)  ; 

CALL    ^RniTf.('    PApi^ETE^.S    i")); 

CALL    CPL^; 

CALL    SET^PAST$PKf&^ ' 

PAP^^LISTPIG (SU^^TN:=SUPRTN+1 ) ,    APT^ALEP    =    AL^PPTR; 

PAPK$MUM(SUPPT>i)    =   j; 

DO    I    =   1    TO    j; 

CALL    TAP2; 

CALL    PPINT( . ('NO.    $')  ); 

CALL    PRlNT^E'ECd  )  ; 

CALL    TAEi; 

IE  3?R(3YT7PTR  ,7)  T"FN 

do; 

ie  sfrfpyte?"r,6)  then  gall  ppi\t(.('  function  <'))] 
^lse  call  pri.mt(  .(  '  va^  ^ 

end: 
EL^E  IE  PYTEPTR  =•  4  THE?''  CALL  pT'INT(. 
ELSE  CALL  FRi:JT(  .(  '  VALUE 
CALL  PPINT(.( 'PARA^ETEP  OF  TYPE 
CALL  CHECK<TTrE(EORM) ; 
A^TPADDR  =  APTPADDP  +  3: 

end;  /-  DO  I  */ 

CALL  PRPIT$PRT(ie)  ; 
CALL  PPINT$PRT(12); 
CALL  TA3i; 
CALL  ^"f'lNTf.  (  'THE  LAIEL  VALUE  PPECEDIMG 
CALL  SET$PAST^PN(14); 
CALL  PPlNT^DEC(&rCPPTR ); 

CALL  crle; 
END  suproutine; 


^ 


$'));' 


?FE  COLE  IS  t  '  ^ 


BRANCH:  PPOC; 

SPTPL  =  SBTBL  ■^  (3  ^=  PAR[^iNUr^(SUPRTN)  ); 
SUPRTiM  =  SUPRTW  -  i: 
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END  b^.anch; 


CALL    FNTPYiHFAC; 
CALL    SUEROUTINS; 
EMI}    PFINT$F^OC; 


PRLMT^FUNC:    PROC; 

CALL  ENTRY$EEAr; 

CALL  Ppr^T{.('THF  FUNCTION  TYPE  IS  $')); 

CALL  SFT$PAST$PN(ie) ; 

FOR^  =  pyteptr; 

CALL  CEFCK$TYPF(FORr'); 

CALL  subroutine; 

ENL    PRINT$FUNC; 


PPINT^FILE:    PROCJ 

CALL  entrysheal; 

END    PRINT^FILS; 


SKIPPER:    PROC; 

DO    CASEfSHRCFORr'^S)    AND    F0RMKA5K); 

do; 

CALL  SETADDRPTR(e) ; 

SFTEL  =  SBTRL  +  le  +  5YTEPTR; 

end; 

srtbl  =  sbtbl  +  16; 
Lo; 

call  sftaddrptr(5) ; 

sp.tbl  =  sbt^l  +  10  +  (2  -  byteptr); 
end; 
Dc; 

IF  FORM  =  IFH  TFFN  SBTBL  =  SBTPL  +  9; 

ELSE  do; 

CALL  SETADDR?TR(6); 

SBTBL  =  SBTBL  +  14  +  BYTEPTR; 

end; 
end; 

sbtbl  =  sbtbl  +  7; 
sbtbl  =  sbtbl  +  7; 
sbtbl  =  sbtbl  +  7; 

end;   /*  OF  CASE  -/ 

END  skipper; 


STARS:  PRCC; 

CALL  crlf; 

CALL 

PRINT  (.  (  ' $  '  )  } ; 

CALL  crlf; 
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end; 


mov^:  phocf sour ce.les tin ,l): 
ccl  (sotirce,destin  ,l)  adlr  , 

(schar  "based  source,  dchap 
do  while  (l:=l  -  1)  <>  65535; 
dch».r=schar; 

DESTIN=DESTIiM  +  i; 
SCURCE=SOURCE+l; 

end; 
E\'D  ^'Ove; 


BASED  DE3TIK)  PYTE; 


M/INII\'E:ro; 
CALL  DOTSYr^'; 


BASE,  SB 
L  =  COPY 
CALL  SET 
FORM  =  B 
DC  CASS 
C^LL 

do; 

CA 
IE 
EL 

end; 

CALL 
C^LL 
CALL 
C^LL 
CALL 

end;  /- 

/-  START 

TABLE$ST 

CALL  MOV 

BASE,SBT 

/-  START 

CALL  S^T 

DO  WHILE 

CALL 

FORM 

CALL 

DO  C 

/-  L 


TBL  =  .memory; 
ssbtbl; 

4DD?PTR(4); 

yteptr; 

(ecr^  and  for  mm ask) ; 

3ET$?AST$?N(11); 

LL  SETADDR?TP(4); 

SER(BYTEPTH,4)  TEEN  C^LL  SET^P.*  ST$?N  (  17  ^  ; 
SE  CALL  SET^PAST$PN(11); 

SE'"SPAST$PN(11); 

SET$PAST$FN(13) ; 

SET$PAST$PN (le) ; 

SETiPAST$PN(19); 

SETi?AST$?N(9^; 

THIS  ENTRY  IS  IMPOSSIBLE  ECR  THE  EIR3T  ENTRY  -/ 
CASE  EORM  -/ 

ING  LOCATION'  OE  THE  SYMBOL  TA^L^  -/ 
4RT  =  ADIRPTp; 
E(SBT3L,TA3LE$3TART,L) ; 

BL  =  taple$start; 

ADDRPTR(c ) ; 
ADDRPTR  <>  Z'3H; 

SETADDRPTR(4) ; 
=   3YTEPTR; 

stars; 
ase  feyteptr  and  eor^^mas^); 

A3SL  -/ 

do; 

CALL  PRINTnAEEL; 

SBT3L  =  S3TBL  +  9  +  LPN; 

end; 

/-  constant  -/ 

do; 

CALL  print$comst; 
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sbtbl  =  s3tel  -"  lpni 
eml; 

/-  TYP?  -/ 

ro; 

CALL  FPl!MT$Tr?E; 

33T3L  =  SBTBL  +  9  +  LPi^; 

/-  variable  -/ 
do; 

CALL  print$vap.iable; 

SBTBL  =  SBTBL  +  11  -^  LPN; 

end; 

/-  proceeupe  -/ 

lo; 

CALL  FPINT$PROC; 

SBTBL  =  SBTBL  +  16  +  LPN; 
ENi; 
/-  FUNCTION  -/ 

do; 

call  frint$iunc; 

sbtbl  =  sbtbl  +  17  +  lpn; 
end; 

/-  PILE  -/ 

do; 

CALL  p^imt^eile; 

SBTBL  =  SBTBL  +  7  +  l?'r, 

end; 

/*  USE?  defined  ENTRY  -/ 
DO  * 

CALL  skipper; 
end; 
end;  /-  OF  case  -/ 

if  SBTBL  =  PARr.^LISTING(SUBRTN  )  TPEN  CALL  BRANCH; 

base  =  sbtbl ; 

call  setaddrptr(2); 
end; 

call  crlp; 

call  print(.('the  syl^bol  table  has  been  printed.  $m): 
CALL  boot; 

END  i^A  inline; 
END  SYv*; 
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